A voir également:
- Suprimer une imprimante par du VB ou .bat
- Creer un fichier .bat - Guide
- Spouleur imprimante - Guide
- Bat to exe converter - Télécharger - Édition & Programmation
- Télécharger pilote imprimante hp - Télécharger - Pilotes & Matériel
- Comment suprimer un compte gmail - Guide
3 réponses
en faite je veux desinstaller cette imprimante sur une 50 ene de poste et j aimerais envoyer un .bat ou un exe en VB en tache planifie sur tout les postes pour eviter de faire 50 desinstallation manuelle
C'est surement "un peu" tard :D mais ca pourra peut-être servir à quelqu'un d'autre :
Public Sub DeletePrinter(strNom As String)
Dim strComputer As Variant
Dim objWMIService As Variant
Dim colInstalledPrinters As Variant
Dim objPrinter As Variant
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer where DeviceID = '" & strNom & "'")
For Each objPrinter In colInstalledPrinters
objPrinter.Delete_
Next
End Sub
Public Sub DeletePrinter(strNom As String)
Dim strComputer As Variant
Dim objWMIService As Variant
Dim colInstalledPrinters As Variant
Dim objPrinter As Variant
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer where DeviceID = '" & strNom & "'")
For Each objPrinter In colInstalledPrinters
objPrinter.Delete_
Next
End Sub
