1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("\\computer\c$\Temp\DefaultPrinter.txt",1)
strPrinter = objFileToRead.ReadAll()
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "Select printerName, serverName, Localisation from " _
& " 'LDAP://DC=huge, DC=ad, DC=hcuge, DC=ch' where objectClass='printQueue' and printername='" & strPrinter & "'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo "Printer Name: " & objRecordSet.Fields("printerName").Value
Wscript.Echo "Server Name: " & objRecordSet.Fields("serverName").Value
Wscript.Echo "Localisation : " & objRecordSet.Fields("localisation ").Value
objRecordSet.MoveNext
Loop |
Partager