Script para eliminar impresoras locales remotamente

Muchas veces es necesario desinstalar impresoras de un toda una red, una de las formas que me parece mas sencilla es crear un script Vbs, para poder eliminar las impresoras.

podemos generar un fichero BorrarLocalPrinters.vbs con el siguiente contenido:

' Para recoger argumentos de entrada
Set objParametros = WScript.Arguments

' Primer argumento nombre de Equipo
strComputer = objParametros.Item(0)

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")

'El select tienes las condiciones para listar impresoras, en mi caso que sean locales y con portname *10.0*

Set colInstalledPrinters =  objWMIService.ExecQuery _
("Select * from Win32_Printer Where Network = FALSE and PortName like '%10.0.%'")

For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next

Una vez generado el fichero, la manera de ejecutarlos en cmd ->  BorrarLocalPrinters.vbs Nombredeequipo

Espero que os sirva de ayuda