リンク サービスの作成時にエラーを処理する方法

  • [アーティクル]

ほとんどのスクリプトと同様に、エラーを処理する関数を記述する必要があります。 このエラー ハンドラーは、Windows Management Instrumentation (WMI) エラー キューで関連するエラー情報をスキャンし、ユーザーにエラーを表示します。

次の例は、リンク サービスの作成時にエラーを処理する方法を示しています。

構文

  
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