HP Insight Management WBEM Providers - Manual (Page 32)

For Each objFan in colFan
WScript.Echo "Caption: " & objFan.Caption
WScript.Echo "Description: " & objFan.Description
For Each objStatusDescription in objFan.StatusDescriptions
WScript.Echo "Status description: " & objStatusDescription
Next
For Each objOperationalStatus in objFan.OperationalStatus
WScript.Echo "Operational status: " & objOperationalStatus
Next
WScript.Echo
Next
This VBScript code is used to clear the record log:
strComputer = "."
strNamespace = "\root\hpq"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & strNamespace)
Set colCommonRecordLog = objWMIService.ExecQuery("Select * from HPQ_CommonRecordLog")
Wscript.Echo "Clearing the record log…"
For Each objCommonRecordLog in colCommonRecordLog
objCommonRecordLog.ClearLog()
Next
This VBScript code is used to receive an alert indication:
strComputer = "."
strNamespace = "\root\hpq"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & strNamespace)
Set objIndication = objWMIService.ExecNotificationQuery("SELECT * FROM HP_AlertIndication")
Wscript.Echo "Waiting for alert indication..."
Set objReceivedIndication = objIndication.NextEvent
WScript.Echo "Provider Name = " & objReceivedIndication.ProviderName
WScript.Echo "Event ID = " & objReceivedIndication.EventID
WScript.Echo "Severity = " & objReceivedIndication.PerceivedSeverity
WScript.Echo "Description = " & objReceivedIndication.Description
Insight Providers architecture 32