Supprimer toutes les imprimantes réseaux d’un poste

Le script permet de supprimer toutes les imprimantes réseaux sur un poste/serveur.

'
'	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

Adaptation du script

Supprimer toutes les imprimantes :

À la ligne 17

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

Remplacer par : lcase(Left(objPrinter.Name,2)) = « \\ »

Supprimer les imprimantes mappées depuis un serveur spécifique :

À la ligne 17

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

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

9 : correspond au nombre de caractères dans \\srv-imp