Bonjour,
je cherche à désinstaller par script VBS toutes les imprimantes réseau des postes de mon domaine
j'ai essayé celui ci dessous mais s'il n'y a pas d'erreur de compilation, rien ne se passe
merci pour votre aide
_______________________________________________________________________________________________________________________
'Suppression de toutes les imprimantes réseaux'
'Définition des imprimantes de la salle VS et imprimante par défaut'
 
Option Explicit 'Impose la déclaration explicite des variables'
 
Dim ImpNetwork 'Définition de la variable ImpNetwork'
Dim ObjWMIService 'Définition de la variable ObjWMIService'
Dim colInstalledPrinters  'Déifnition de la variable colInstalledPrinters'
On Error Resume Next
 
 
'Début du script Suppression de toutes les imprimantes réseaux'
 
'Rem nom du poste local'
strComputer = "."
 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
 
'Rem recherche des imprimantes qui sont en réseau, définies par la variable Network = True'
Set colInstalledPrinters = objWMIService.ExecQuery _  
("Select * From Win32_Printer Where Network = True" )
 
'Rem suppression de toutes les imprimantes réseaux trouvées précédemment'
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_            
Next
'Fin du script suppression de toutes imprimantes réseaux'
_________________________________________________________________________________________________