HP Integrity Superdome SX1000 HP Insight Management WBEM Providers on Integrit - Page 29
Example 8-6 Listing fans and operational status information
View all HP Integrity Superdome SX1000 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 29 highlights
Example 8-4 Listing system memory modules and their capacities strComputer = "." strNamespace = "\root\hpq" Set objWMIService = GetObject("winmgmts:\\" & strComputer & strNamespace) Set colMemoryModule = objWMIService.ExecQuery("Select * from HP_MemoryModule") For Each objMemoryModule in colMemoryModule WScript.Echo "Caption: " & objMemoryModule.Caption WScript.Echo "Capacity (bytes): " & objMemoryModule.Capacity Wscript.Echo Next Example 8-5 Listing system processors, current clock speed, and the number of enabled cores strComputer = "." strNamespace = "\root\hpq" Set objWMIService = GetObject("winmgmts:\\" & strComputer & strNamespace) Set colProcessor = objWMIService.ExecQuery("Select * from HP_Processor") For Each objProcessor in colProcessor WScript.Echo "Caption: " & objProcessor.Caption WScript.Echo "Description: " & objProcessor.Description WScript.Echo "Current clock speed (MHz): " & objProcessor.CurrentClockSpeed WScript.Echo "Number of enabled cores: " & objProcessor.NumberOfEnabledCores Wscript.Echo Next Example 8-6 Listing fans and operational status information strComputer = "." strNamespace = "\root\hpq" Set objWMIService = GetObject("winmgmts:\\" & strComputer & strNamespace) Set colFan = objWMIService.ExecQuery("Select * from HP_WinFan") 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 Microsoft Visual Basic Scripting Edition examples 29