Manual

Set colComputerSystemChassis = objWMIService.ExecQuery("Select * from HP_ComputerSystemChassis")
For Each objComputerSystemChassis in colComputerSystemChassis
WScript.Echo "Model: " & objComputerSystemChassis.Model
WScript.Echo "Serial number: " & objComputerSystemChassis.SerialNumber
WScript.Echo "Asset tag: " & objComputerSystemChassis.UserTracking
Next
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")
HP Insight Management WBEM Providers 2.7.0.0 User Guide 31