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 & "\root\cimv2")
'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
un vez generado el fichero, la manera de lanzarlos en cmd -> BorrarLocalPrinters.vbs equipo
Espero que os sirva de ayuda.
No hay comentarios:
Publicar un comentario