Nota
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare ad accedere o modificare le directory.
L'accesso a questa pagina richiede l'autorizzazione. È possibile provare a modificare le directory.
È possibile gestire gli errori sincroni, in Configuration Manager, controllando l'oggetto SWbemLastError quando si verifica un errore. Si è verificato un errore quando la proprietà dell'oggetto Number errore è diversa da zero.
Nota
In VBScript è necessario dichiarare che si vuole riprendere l'esecuzione dello script se si verifica un errore. In caso contrario, lo script terminerà quando si verifica una condizione di errore. A tale scopo, usare la On Error Resume Next dichiarazione nello script.
Esempio
Nell'esempio VBScript seguente vengono visualizzate le informazioni sugli errori più recenti disponibili dall'oggetto SWbemLastError . È possibile usare il codice seguente, che tenta di ottenere un pacchetto di SMS_Package non valido per testarlo.
Per informazioni sulla chiamata del codice di esempio, vedere Chiamata di frammenti di codice Configuration Manager.
Sub ExerciseError(connection)
On Error Resume next
Dim packages
Dim package
' Run the query.
Set package = connection.Get("SMS_Package.PackageID='UNKNOWN'")
If Err.Number<>0 Then
Call DisplayLastError
End If
End Sub
Sub DisplayLastError
Dim ExtendedStatus
' Get the error object.
Set ExtendedStatus = CreateObject("WbemScripting.SWBEMLastError")
' Determine the type of error.
If ExtendedStatus.Path_.Class = "__ExtendedStatus" Then
WScript.Echo "WMI Error: "& ExtendedStatus.Description
ElseIf ExtendedStatus.Path_.Class = "SMS_ExtendedStatus" Then
WScript.Echo "Provider Error: "& ExtendedStatus.Description
WScript.Echo "Code: " & ExtendedStatus.ErrorCode
End If
End Sub