Überprüfen von Werten eines Objekts

Moin,

ich schreibe gerade ein Tool zur Abfrage von System- und Hardwareinformationen mittels WMI. Allerdings habe ich das Problem, dass manche Werte der Klassen nicht in allen Betriebssystemen vorhanden ist. So kann ich z.B. unter Windows 7 die HDD-Serial abfragen, unter Windows XP crashed das komplette Script mit der Rückgabe weiter unten.

Gibt es eine Möglichkeit, vor der Abfrage des Wertes zu überprüfen, ob dieser überhaupt vorhanden ist?
Hier die Fehlermeldung:

Zitat

==> The requested action with this object has failed.:
$lResult = "HDD" & $i & "SerialNumber" & "|" & $objItem.SerialNumber
$lResult = "HDD" & $i & "SerialNumber" & "|" & $objItem.SerialNumber^ ERROR
>Exit code: 1

Und hier der Ausschnitt des Codes:

Func _EnumerateHardwareWmi(ByRef $lArray) ;
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$i = 0
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$i += 1
$lResult = "HDD" & $i & "InterfaceType" & "|" & $objItem.InterfaceType
_Array2DAdd($lArray, $lResult)
$lResult = "HDD" & $i & "SerialNumber" & "|" & $objItem.SerialNumber
_Array2DAdd($lArray, $lResult)
$lResult = "HDD" & $i & "MediaType" & "|" & $objItem.MediaType
_Array2DAdd($lArray, $lResult)
$lResult = "HDD" & $i & "Model" & "|" & $objItem.Model
_Array2DAdd($lArray, $lResult)

next
Else
_WriteDebug('ERR ;_EnumerateInstalledSoftwareWmi;No WMI Objects Found for class: "Win32_DiskDrive"')
SetError(1)
Endif

Danke Euch schon mal im Voraus.

Danke Oscar für Dein Script.

Allerdings hilft dies nur, wenn man im Voraus weiß, welche Werte in welchen OS nicht vorhanden sind. Mir ging es eher generell um eine Überprüfung, ob dieser Wert unter dem ausführenden OS vorhanden ist und falls nicht, dieser Wert gar nicht erst abgefragt wird.
Ich weiß ja leider nicht, auf welchen OS oder SP Leveln das Script ausgeführt wird.

Zitat von Ineluki

Du kannst dir dafür einen eigenen Errorhandler bauen mit

Genau darauf bin ich auch gerade gestoßen. Aber vielen Dank für den Hinweis.

Gibt es eine Möglichkeit das Item, welches den Fehler ausgelöst hat auszugeben? Also in meinem Fall "$objItem.SerialNumber"?

Wir jetzt über COM Error abgefangen und in ulqadbg.log ausgegeben

$oMyError = ObjEvent("AutoIt.Error","_MyErrFunc") ; Initialize a COM error handler

Func _MyErrFunc() ; self defined error handler

_WriteDebug("ERR ;MyErrFunc;COM error: ")
_WriteDebug("ERR ;MyErrFunc;+> err.description is: " & $oMyError.description)
_WriteDebug("ERR ;MyErrFunc;+> err.windescription:" & $oMyError.windescription)
_WriteDebug("ERR ;MyErrFunc;+> err.number is: " & hex($oMyError.number,8))
_WriteDebug("ERR ;MyErrFunc;+> err.lastdllerror is: " & $oMyError.lastdllerror)
_WriteDebug("ERR ;MyErrFunc;+> err.scriptline is: " & $oMyError.scriptline)

Local $err = $oMyError.number
If $err = 0 Then $err = -1

Endfunc

Func _WriteDebug($lParam) ; $lType, $lFunc, $lString) ; creates debuglog for analyzing problems
local $lArray[4]
local $lResult

local $lArrayTemp = StringSplit($lParam, ";")
if @error Then
Dim $lArrayTemp[4]
;~ $lArrayTemp[0] bleibt leer
$lArrayTemp[1] = "ERR "
$lArrayTemp[2] = "_WriteDebug"
$lArrayTemp[3] = "StringSplit failed"
EndIf

for $i = 1 to $lArrayTemp[0]
if $i > 1 Then $lResult = $lResult & @CRLF
$lResult = $lResult & $lArray[$i] & $lArrayTemp[$i]
Next

FileWriteLine($gDbgFile, @MDAY & @MON & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "." & @MSEC & " - " & $lArrayTemp[1] & " - " & $lArrayTemp[2] & " - " & $lArrayTemp[3])
EndFunc

Wenn mir jetzt noch einer die Frage aus meinem letzten Posting beantworten kann, bin ich glücklich.