Listar las impresoras a un archivo
'Filename: listprinters.vbs
'Revisión: v1.0
'Author: Juansa
'
'Fecha: 02/11/2006
'Revisado:
'Sintaxis: listprinters.vbs pathtolist
'pathtolist = ruta y archivo donde irán los datos
On error Resume Next
Const ForAppending = 8
'***Comprobamos argumentos***
If WScript.Arguments.count > 0 Then
ArchivoSalida = WScript.Arguments.item(0)
Else
ArchivoSalida = InputBox("Se necesita un nombre de archivo para la lista a generar", "Listado de impresoras")
End If
'***Crear el archivo***
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (ArchivoSalida, ForAppending, True)
'******
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_PrinterDriver")
For each objPrinter in colInstalledPrinters
objTextFile.WriteLine("Archivo de configuración: " & objPrinter.ConfigFile)
objTextFile.WriteLine("Fecha del archivo: " & objPrinter.DataFile)
objTextFile.WriteLine("Descripción: " & objPrinter.Description)
objTextFile.WriteLine("Ruta del controlador: " & objPrinter.DriverPath)
objTextFile.WriteLine("Ruta del archivo: " & objPrinter.FilePath)
objTextFile.WriteLine("ARchivo de ayuda: " & objPrinter.HelpFile)
objTextFile.WriteLine("Nombre INF: " & objPrinter.InfName)
objTextFile.WriteLine("Nombre del monitor: " & objPrinter.MonitorName)
objTextFile.WriteLine("Nombre: " & objPrinter.Name)
objTextFile.WriteLine("OEMUrl: " & objPrinter.OEMUrl)
objTextFile.WriteLine("Plataforma compatible: " & objPrinter.SupportedPlatform)
objTextFile.WriteLine("Versión: " & objPrinter.Version)
objTextFile.WriteLine("")
Next
objTextFile.Close
set ObjTextFile = Nothing
wscript.Echo "Hecho!!!"