HP Integrity rx7640 HP Insight Management WBEM Providers on Integrity Servers - Page 23
Example 5-6 Listing fans and operational status information
View all HP Integrity rx7640 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 23 highlights
Example 5-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 5-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 5-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 23