HP Insight Management WBEM Providers User Manual

Page 29

Insight Providers architecture 29

For Each objComputerSystemChassis in colComputerSystemChassis

WScript.Echo "Model: " & objComputerSystemChassis.Model

WScript.Echo "Serial number: " &

objComputerSystemChassis.SerialNumber

WScript.Echo "Asset tag: " & objComputerSystemChassis.UserTracking

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

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

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")