Owner manual

File nameVersionProfile name

P00123_-_HP_SCSI_HBA_Profile.pdf1.0.1P00123 HP SCSI HBA Profile

P00124_-_HP_Location_Profile.pdf1.1.0P00124 HP Location Profile

P00125_-_HP_Blade_System_Lite_Profile.pdf2.1.0P00125 HP Blade System Lite Profile

P00129_-_HP_Standalone_Tape_Drive_profile.pdf1.0.0P00129 HP Standalone Tape Drive

Profile

P00130_-_HP_Host_Attached_SATA_profile.pdf1.0.0P00130 HP Host Attached SATA

Profile

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

For Each objComputerSystemChassis in colComputerSystemChassis

WScript.Echo "Model: " & objComputerSystemChassis.Model

WScript.Echo "Serial number: " & objComputerSystemChassis.SerialNumber

Microsoft Visual Basic Scripting Edition examples 19