Microsoft visual basic scripting edition examples – HP Insight Management WBEM Providers User Manual

Page 28

Insight Providers architecture 28

Microsoft Visual Basic Scripting Edition examples

You can write scripts to obtain data from the Insight Providers using Microsoft® Visual Basic Scripting
Edition (VBScript) or any other scripting language that supports Microsoft® ActiveX.
The following are example codes for accessing Insight Provider data using VBScript code.
This VBScript code is used to display computer system operational status information:

strComputer = "."

strNamespace = "\root\hpq"

Set objWMIService = GetObject("winmgmts:\\" & strComputer &

strNamespace)

Set colComputerSystem = objWMIService.ExecQuery("Select * from

HP_WinComputerSystem")

For Each objComputerSystem in colComputerSystem

WScript.Echo "Caption: " & objComputerSystem.Caption

For Each objStatusDescription in

objComputerSystem.StatusDescriptions

WScript.Echo "Status description: " & objStatusDescription

For Each objOperationalStatus in objComputerSystem.OperationalStatus

WScript.Echo "Operational status: " & objOperationalStatus

The following VBScript code is used to display system firmware version:

strComputer = "."

strNamespace = "\root\hpq"

Set objWMIService = GetObject("winmgmts:\\" & strComputer &

strNamespace)

Set colSystemROMFirmware = objWMIService.ExecQuery("Select * from

HP_SystemROMFirmware")

For Each objSystemROMFirmware in colSystemROMFirmware

WScript.Echo "Caption: " & objSystemROMFirmware.Caption

WScript.Echo "Version: " & objSystemROMFirmware.VersionString

WScript.Echo

This VBScript code is used to display computer system chassis model name, serial number and asset tag:

strComputer = "."

strNamespace = "\root\hpq"

Set objWMIService = GetObject("winmgmts:\\" & strComputer &

strNamespace)

Set colComputerSystemChassis = objWMIService.ExecQuery("Select * from

HP_ComputerSystemChassis")