Script para configurar una impresora como default

Una vez copiado el código lo guardamos como VBS

'Se definen los objetos con los que vamos a trabajar

Dim flag, strUNCPrinter
strUNCPrinter = "\\172.17.17.13\HP LaserJet 1100 (MS)"
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
flag=0

'Enumeramos las impresoras instaladas en el equipo local y las comparamos con la que queremos como default

For i = 0 to oPrinters.Count - 1 Step 2

'Popup que nos indica la impresora encontrada, habrá que comentarlo para que el resultado final
'no muestre esta información

WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)

'Si la impresora es la deseada la marcamos como default

if oPrinters.Item(i+1) = "Lexmark C500" Then
flag=1
WSHNetwork.SetDefaultPrinter oPrinters.Item(i)

'Popup que nos indica que impresora hemos puesto como default

WScript.Echo "La Impresora predeterminada es " & oPrinters.Item(i+1)

end if
Next

'En el caso de encontrar la impresora deseada en conexión local

if flag=0 then
WSHNetwork.SetDefaultPrinter strUNCPrinter

'Popup que nos indica que impresora hemos puesto como default

WScript.Echo "La Impresora predeterminada es " & strUNCPrinter

end if