WMI Kullanarak Configuration Manager Zaman Uyumlu Hataları İşleme

Bir hata oluştuğunda nesneyi inceleyerek SWbemLastError Configuration Manager zaman uyumlu hataları işlersiniz. Hata nesnesi Number özelliği sıfır olmadığında bir hata oluştu.

Not

VBScript'te bir hata oluşursa betiği çalıştırmaya devam etmek istediğinizi bildirmeniz gerekir. Aksi takdirde, bir hata koşulu oluştuğunda betik sona erer. Bunu yapmak için betiğinizdeki bildirimini kullanın On Error Resume Next .

Örnek

Aşağıdaki VBScript örneği, nesneden SWbemLastError kullanılabilen en son hata bilgilerini görüntüler. Test etmek için geçersiz bir SMS_Package paketi almaya çalışan aşağıdaki kodu kullanabilirsiniz.

Örnek kodu çağırma hakkında bilgi için bkz. Configuration Manager Kod Parçacıklarını Çağırma.

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  

Ayrıca Bkz

Hatalar hakkında
WMI SDK'sı