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