Supprimer toutes les imprimantes réseaux d’un poste

Ce script vous 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

 

Utilisation

Supprimer toutes les imprimantes :

A la ligne 20

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

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

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

A la ligne 20

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

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

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



Related Posts


Mappage imprimante : GPO et Script
Lors de la mise en place d'un annuaire Active Directory, l'une des choses que l'on souhaite mettre en place automatiquement est le mappage des imprimante aux utilisateurs. Avant de mettre en place les GPO, il faut avoir partagé les imprimantes. Comme