Eliminar todas las impresoras de red de una estación de trabajo

El script le permite eliminar todas las impresoras de red en una estación de trabajo / servidor.

'
'	RDR REMOVE NETWORK PRINTER
'
'
'
Dim strComputer

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")
Set WshNetwork = WScript.CreateObject("WScript.Network")
'msgbox "open script"
' Boucle sur les imprimantes
For Each objPrinter in colInstalledPrinters
  msgbox objPrinter.Name
    
  ' On verifie que l on est bien sur un imprimante reseau
  if lcase(Left(objPrinter.Name,3)) = "\\1" then
    'msgbox objPrinter.Name
    ' On supprime l imprimante
    WshNetwork.RemovePrinterConnection objPrinter.Name, true, true
  end if 
Next

Adaptación del guión

Eliminar todas las impresoras :

En la línea 17

Buscar : lcase(Left(objPrinter.Name,3)) = «\\1»

Reemplazar con : lcase(Left(objPrinter.Name,2)) = «\\»

Elimine las impresoras asignadas de un servidor específico :

En la línea 17

Buscar : lcase(Left(objPrinter.Name,3)) = «\\1»

Reemplazar con : lcase(Left(objPrinter.Name,9)) = «\\srv-imp»

9 : coincide con el número de caracteres en \\srv-imp