Social Icons

twitter facebook google plus linkedin

lunes, 7 de diciembre de 2015

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!