HP dx7200 HP Client Management Interface Technical White Paper - Page 17
For Each objItem In colItems
View all HP dx7200 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 17 highlights
Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 lFlags = wbemFlagReturnImmediately + wbemFlagForwardOnly strService = "winmgmts:{impersonationlevel=impersonate}//" strComputer = "." strNamespace = "/root/HP/InstrumentedBIOS" strQuery = "select * from HP_BIOSSetting" Set objWMIService = GetObject(strService & strComputer & _ strNamespace) Set colItems = objWMIService.ExecQuery(strQuery,,lFlags) Counter = 1 For Each objItem In colItems WScript.Echo Counter & vbTab & objItem.Name objItem.Value Counter = Counter + 1 Next Changing the Ownership Tag Here is a sample script to change the ownership tag setting. The value field may need some modification. Note that "E302E020304" is the keyboard scan code for the keys "abc123". Const wbemFlagReturnImmediately = 16 Const wbemFlagForwardOnly = 32 lFlags = wbemFlagReturnImmediately + wbemFlagForwardOnly strService = "winmgmts:{impersonationlevel=impersonate}//" strComputer = "." strNamespace = "/root/HP/InstrumentedBIOS" strQuery = "select * from HP_BIOSSettingInterface" Set objWMIService = GetObject(strService & _ strComputer & strNamespace) Set colItems = objWMIService.ExecQuery(strQuery,,lFlags) ' "Enter Ownership Tag" is the name of the BIOS setting ' instance object that we want to update. The correct ' names of available settings are found by enumerating ' all instances of HP_BIOSSetting. For each objItem in colItems objItem.SetBiosSetting oReturn, _ "Enter Ownership Tag", _ "Some environment-specific inventory code", _ "1E302E020304" Next Dim strReturn Select Case oReturn Case 0 strReturn = "Success" Case 1 strReturn = "Not Supported" Case 2 strReturn = "Unspecified Error" Case 3 strReturn = "Timeout" Case 4 strReturn = "Failed" 17