Obtener listado de impresoras

Hola Mundo:

Hoy les traigo un script que encontré en internet y no recuerdo el sitio. El script lo modifiqué para que arrojara el resultado en un archivo CSV.

Este script tiene la funcionalidad de entregar todas las impresoras de un dominio sobre Windows Server 2003. El script está construido en el lenguaje VBS.

Const ADS_SCOPE_SUBTREE = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile("impresoras.csv")

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 from " _
& " 'LDAP://DC=DOMINIO,DC=TLD' where objectClass='printQueue'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
objLogFile.Write chr(34) & objRecordSet.Fields("printerName").Value & chr(34) &","
objLogFile.Write chr(34) & objRecordSet.Fields("serverName").Value & chr(34) &","
objLogFile.Writeline

'Wscript.Echo "Printer Name: " & objRecordSet.Fields("printerName").Value
'Wscript.Echo "Server Name: " & objRecordSet.Fields("serverName").Value
objRecordSet.MoveNext
Loop

Espero que les sirva.

 Chau!