martes, 4 de mayo de 2010

Listar Impresoras Instaladas




Hoy me inscribieron a andres.arredondo@hotmail.com pidiendome un script que les ayudara a sacar un reporte de las impresoras que tiene instalado un servidor de impresion. El problema era que el servidor tiene mas de 200 impresoras instaladas y el reporte ocupaba tener Nombre de la impresora, modelo, direccion IP.
Bueno aqui les paso el script que nos dio el reporte que necesitaban.
Este codigo solo lo copian a un archivo TXT, luego cambian la extencion a VBS. en mi caso mi archivo se llamo printer.vbs
Por default al momento de ejecutarlo nos creea un archivo htm en C raiz. Ustedes puedes cambiar la ubicacion o el nombre de dicho archivo, esto lo encuentras en la linea 25 del codigo
Espero les sea de utilidad


---------------------------------------------------------------------------------------------------------


'VBScript'****** re-used html needed later ******


'top listing


list = "


">Network Name


">IP Address


">Model


">Comments


">Share Name


"






'td open close


tco = "






'open table


opentable = "







'close table


closetable = "


"






'*************






strcomputer = "."






Set objFSO = CreateObject("Scripting.FileSystemObject")


'change C:\printers.htm to whatever you wish


Set File = objFSO.CreateTextFile("C:\printers.htm", True)










Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _


strComputer & "\root\cimv2")


Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")






'-----------------------------------------------------------------


file.writeline ""


file.writeline ""


file.writeline "






File.Close


---------------------------------------------------------------------------------------


El script lo encontre en Technet en en el script center de microsoft


http://gallery.technet.microsoft.com/ScriptCenter/en-us/ef4da3ce-7075-46b6-98a2-b49c94743048
<><><><><> "1000" & chr(34) & "id=" & chr(34) & "table1" & chr(34) & ">" & list For Each objPrinter in colInstalledPrintersname = objprinter.namecomment = objprinter.commentsharename = objprinter.sharenameport = objprinter.portnamedrivername = objprinter.drivernamefile.writeline opentable & name & tco & port & tco & drivername & tco & _comment & tco & ShareName & closetableNextfile.writeline "
"

No hay comentarios:

Publicar un comentario