HP xw4300 - Page 21

21
End Select
Select Case CMIEvent.severity
Case 0 strSeverity = "Unknown"
Case 5 strSeverity = "OK"
Case 10 strSeverity = "Degraded/Warning"
Case 15 strSeverity = "Minor Failure"
Case 20 strSeverity = "Major Failure"
Case 25 strSeverity = "Critical Failure"
Case 30 strSeverity = "Non-recoverable Error"
Case Else strSeverity = "..."
End Select
Select Case CMIEvent.status
Case 0 strStatus = "Unknown"
Case 1 strStatus = "Other"
Case 2 strStatus = "OK"
Case 3 strStatus = "Degraded"
Case 4 strStatus = "Stressed"
Case 5 strStatus = "Predictive Failure"
Case 6 strStatus = "Error"
Case 7 strStatus = "Non-Recoverable Error"
Case 8 strStatus = "Starting"
Case 9 strStatus = "Stopping"
Case 10 strStatus = "Stopped"
Case 11 strStatus = "In Service"
Case 12 strStatus = "No Contact"
Case 13 strStatus = "Lost Communication"
Case 14 strStatus = "Aborted"
Case 15 strStatus = "Dormant"
Case 16 strStatus = "Supporting Entity in Error"
Case 17 strStatus = "Completed"
Case 18 strStatus = "Power Mode"
Case Else strStatus = "..."
End Select
Wscript.Echo "Event received... Count: " & Counter
Wscript.Echo vbTab & "Name:" & vbTab & vbTab _
& CMIEvent.name
Wscript.Echo vbTab & "Description:" & vbTab _
& CMIEvent.description
Wscript.Echo vbTab & "Category:" & vbTab & strCategory
Wscript.Echo vbTab & "Severity:" & vbTab & strSeverity
Wscript.Echo vbTab & "Status:" & vbTab & vbTab _
& strStatus
Counter = Counter + 1
end if
loop