Como lidar com Configuration Manager erros síncronos usando o WMI
Você lida com erros síncronos, em Configuration Manager, inspecionando o SWbemLastError
objeto quando ocorre um erro. Ocorreu um erro quando a propriedade do objeto Number
de erro não é zero.
Observação
No VBScript, você deve declarar que deseja retomar a execução do script se ocorrer um erro. Caso contrário, o script terminará quando ocorrer uma condição de erro. Para fazer isso, use a On Error Resume Next
declaração em seu script.
Exemplo
O exemplo VBScript a seguir exibe as informações de erro mais recentes disponíveis do SWbemLastError
objeto. Você pode usar o código a seguir, que tenta obter um pacote de SMS_Package inválido para testá-lo.
Para obter informações sobre como chamar o código de exemplo, consulte Chamando Configuration Manager Snippets de Código.
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