VBS: Cambiar un el driver de impresion (ya instalado) de una cola de impresión para una lista de servidores listados en un archivo TXT.




Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objServerlist = objFSO.OpenTextFile("ruta al archivo txt con la lista de servidores", 1)



Do Until objServerList.AtEndOfStream
strComputer = objServerList.ReadLine
wscript.echo strComputer



Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer where Name = 'nombre de la impresora' ")
For Each objPrinter in colPrinters
    wscript.echo "Printer found"
    objPrinter.DriverName = "nombre del driver"
    objPrinter.Put_
Next
loop


wscript.echo "Completado"