‘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 & «rootcimv2»)
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!!!»