[R] Erreur lors de la suppression d'imprimantes

[jpascal]

Bonjour,

J'utilise ce code pour supprimer mes imprimantes réseau :

Code : Tout sélectionner

Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Local $colInstalledPrinters =  $objWMIService.ExecQuery ("Select * from Win32_Printer Where Network = TRUE")
    If IsObj($colInstalledPrinters) Then
        For $objPrinter In $colInstalledPrinters
                $objPrinter.Delete_
        Next
    Else
        MsgBox($MB_SYSTEMMODAL + $MB_ICONINFORMATION, "", "Pas d'imprimante trouvée")
    EndIf

Il fonctionne bien la plupart du temps mais lorsque parfois certaines imprimantes ne sont pas supprimables (problème de droit), alors AutoIt plante.

Est-ce que la seule solution pour moi est de lancer un Powershell ou un VBscript par le biais d'AutoIt ou puis-je tester le droit de suppression de mon objet imprimante avant suppression ?

[jpascal]

A priori la solution se trouve dans :

Code : Tout sélectionner

Global $oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

Je teste et reviens vers vous.

[jpascal]

La solution est simplissime.

Ajouter ces lignes :

Code : Tout sélectionner

Global $g_bEventError = False
Global $g_oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

Cette fonction :

Code : Tout sélectionner

Func MyErrFunc()
    $g_bEventError = True
EndFunc   ;==>MyErrFunc

Et cette ligne, par exemple, après la boucle de suppression :

Code : Tout sélectionner

If $g_bEventError Then Exit MsgBox($MB_ICONERROR + $MB_TOPMOST, "", "Une erreur est survenue lors de la suppression des imprimantes.")