HP dx7200 HP Client Management Interface Technical White Paper - Page 21

Case 16 strStatus = Supporting Entity in Error

Get HP dx7200 - Microtower PC PDF manuals and user guides View all HP dx7200 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 21 highlights

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 21

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
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