HP ProLiant BL30p

Insight Providers architecture 30
This VBScript code is used to list 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
This VBScript code is used to list 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
This VBScript code is used to list 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