Como Lidar com Erros Síncronos do Configuration Manager ao Utilizar a WMI
Lida com erros sincronizados, no Gestor de Configurações, inspecionando o SWbemLastError objeto quando ocorre um erro. Ocorreu um erro quando a propriedade do objeto de erro Number não é zero.
Nota
No VBScript deve declarar que pretende retomar a execução do script se ocorrer um erro. Caso contrário, o script terminará quando ocorrer uma condição de erro. Para isso, use a On Error Resume Next declaração no seu roteiro.
Exemplo
O exemplo VBScript que se segue apresenta as informações de erro mais recentes que estão disponíveis a partir do SWbemLastError objeto. Pode utilizar o seguinte código, que tenta obter um pacote de SMS_Package inválido para testá-lo.
Para obter informações sobre a chamada do código de amostra, consulte o Código de Identificação do Gestor de Chamadas.
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