Cómo controlar errores al crear un servicio de vínculo

Al igual que con la mayoría de los scripts, debe escribir funciones para controlar los errores. Este controlador de errores examina la cola de errores de Instrumental de administración de Windows (WMI) para obtener información y publicaciones de errores pertinentes y muestra el error al usuario.

En el ejemplo siguiente se muestra cómo controlar los errores mientras se crea un servicio de vínculo:

Sintaxis

  
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