Comment gérer les erreurs lors de la création d’un service de liaison

Comme avec la plupart des scripts, vous devez écrire des fonctions pour gérer les erreurs. Ce gestionnaire d’erreurs analyse la file d’attente d’erreurs WMI (Windows Management Instrumentation) pour obtenir les informations et publications d’erreurs pertinentes et affiche l’erreur à l’utilisateur.

L’exemple suivant montre comment gérer les erreurs lors de la création d’un service de liaison :

Syntaxe

  
Sub PrintWMIErrorThenExit(strErrDesc, ErrNum)  
    On Error Resume Next  
    Dim objWMIError : Set objWMIError =    CreateObject("WbemScripting.SwbemLastError")  
    wscript.echo TypeName(objWMIError)  
  
    If ( TypeName(objWMIError) = "Empty" ) Then  
    wscript.echo strErrDesc & " (HRESULT: " & Hex(ErrNum) & ")."  
    Else  
    wscript.echo "Extended error information:"  
    wscript.echo objWMIError.Description  
    Set objWMIError = nothing  
    End If  
    Exit sub  
End Sub