Zpracování synchronních chyb Configuration Manager pomocí rozhraní WMI
Synchronní chyby v Configuration Manager zpracováváte kontrolou objektu SWbemLastError
při výskytu chyby. Došlo k chybě, když je vlastnost objektu Number
error nenulová.
Poznámka
V jazyce VBScript byste měli deklarovat, že chcete pokračovat ve spouštění skriptu, pokud dojde k chybě. V opačném případě se skript ukončí, když dojde k chybovému stavu. Chcete-li to provést, použijte On Error Resume Next
deklaraci ve skriptu.
Příklad
Následující příklad jazyka VBScript zobrazuje nejnovější informace o chybě, které jsou k dispozici z objektu SWbemLastError
. Můžete použít následující kód, který se pokusí získat neplatný balíček SMS_Package a otestovat ho.
Informace o volání ukázkového kódu najdete v tématu Volání Configuration Manager fragmentů kódu.
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