Monitoring Events - HP xw4300 Technical White Paper

Case 5 strReturn = "Invalid Parameter"
Case 6 strReturn = "Access Denied"
Case Else strReturn = "..."
End Select
WScript.Echo "SetSystemDefaults() returned: (" & oReturn _
& ") " & strReturn

Monitoring Events

Monitoring system health events is one of the more advanced aspects of the HP Client Management
Interface. The approach to monitoring event presented here is designed to illustrate the capabilities of
the interface, however, in an enterprise environment a more robust event consumer model would be
recommended to monitor events without impacting system resources. HP CMI supports
semi-synchronous and asynchronous event notifications. For more information on WMI event
consumers, consult the Microsoft WMI SDK.
on error resume next
strService = "winmgmts:\\"
strComputer = "."
strNamespace = "\root\WMI"
strQuery = "select * from HPBIOS_BIOSEvent"
set objWMIService = GetObject( strService & strComputer _
set events = objWMIService.ExecNotificationQuery( strQuery )
if err <> 0 then
WScript.Echo Err.Description, Err.Number, Err.Source
end if
WScript.Echo "Waiting for CMI Events..."
WScript.Echo "Press Ctrl-C to exit."
WScript.Echo ""
Dim strCategory
Dim strSeverity
Dim strStatus
Counter = 1
do
' Note this next call will wait indefinitely.
set CMIEvent = events.nextevent
if err <> 0 then
WScript.Echo Err.Number, Err.Description, Err.Source
Exit Do
else
Select Case CMIEvent.category
Case 0 strCategory = "Unknown"
Case 1 strCategory = "Configuration Change"
Case 2 strCategory = "Button Pressed"
Case 3 strCategory = "Sensor"
Case 4 strCategory = "BIOS Settings"
Case Else strCategory = "..."
& strNamespace )
20