Script VBS : Supprimer une imprimante

De $1

Supprimer une imprimante en vbs

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer where DeviceID = 'Nom de l'imprimante'")


For Each objPrinter in colInstalledPrinters

objPrinter.Delete

Next

Supprimer une imprimante réseau en vbs

Set WshNetwork = WScript.CreateObject("WScript.Network")

PrinterPath = "\\Serveur\HPLaserJet"

WshNetwork.RemovePrinterConnection PrinterPath, true, true


Source :

Laboratoire-Microsoft.com

 

 howto05_small.pngVous en pensez quoi ?


 

 

 

 
 
Images (0)
 
Commentaires (0)
Vous devez être connecté pour poster un commentaire.