{"id":12,"date":"2008-01-18T16:37:21","date_gmt":"2008-01-18T16:37:21","guid":{"rendered":"http:\/\/andrius.kozeniauskas.com\/blog\/?p=12"},"modified":"2012-04-20T12:46:25","modified_gmt":"2012-04-20T11:46:25","slug":"remotely-change-bios-settings","status":"publish","type":"post","link":"http:\/\/www.kozeniauskas.com\/itblog\/2008\/01\/18\/remotely-change-bios-settings\/","title":{"rendered":"HP: Remotely change BIOS settings with script"},"content":{"rendered":"

Couple months ago I\u00a0needed to change BIOS setting on all our HP laptops. I wanted to do that remotely because we have many laptops and they are in 5 different locations. After spending some time searching I found very good document from HP.
\nHP Client Management Interface Technical White Paper<\/span><\/a><\/p>\n

After some modifications I came up with the following VB script. This script enables LAN\/WLAN Switching <\/em>setting in the BIOS. Because all the laptops are password protected I had to\u00a0include BIOS password in the script. The password line is “<kbd\/>191E1F1F11181320”<\/em> which is password.<\/em> As described in the HP document: ‘kbd’ denotes a string in hexadecimal format containing keyboard scan code input.
\nYou can find keyboard scan codes here<\/a>. Once I had the script I’ve used SMS2003 to deployed on the laptops. You can easely Active Directory to run the script on start-up.<\/p>\n

Const wbemFlagReturnImmediately = 16
\nConst wbemFlagForwardOnly = 32
\nlFlags = wbemFlagReturnImmediately + wbemFlagForwardOnly
\nstrService = “winmgmts:{impersonationlevel=impersonate}\/\/”
\nstrComputer = “.”
\nstrNamespace = “\/root\/HP\/InstrumentedBIOS”
\nstrQuery = “select * from HP_BIOSSettingInterface”
\nSet objWMIService = GetObject(strService & _
\nstrComputer & strNamespace)
\nSet colItems = objWMIService.ExecQuery(strQuery,,lFlags)
\nFor each objItem in colItems
\nobjItem.SetBiosSetting oReturn, _
\n“LAN\/WLAN Switching”, _
\n“Enable”, _
\n“<kbd\/>191E1F1F11181320”
\nNext<\/p>\n

Download<\/a><\/p>\n

Also I’ve wrote a script which will list all setting in the BIOS. It will also show possible options for setting and which one is set. This creates a *.txt file.<\/p>\n

Dim objFileSystem, objOutputFile
\nDim strOutputFile
\nConst wbemFlagReturnImmediately = 16
\nConst wbemFlagForwardOnly = 32
\nlFlags = wbemFlagReturnImmediately + wbemFlagForwardOnly
\nstrOutputFile = “.\/” & Split(WScript.ScriptName, “.”)(0) & “.txt”
\nstrService = “winmgmts:{impersonationlevel=impersonate}\/\/”
\nstrComputer = “.”
\nstrNamespace = “\/root\/HP\/InstrumentedBIOS”
\nstrQuery = “select * from HP_BIOSSetting”
\nSet objFileSystem = CreateObject(“Scripting.fileSystemObject”)
\nSet objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
\nSet objWMIService = GetObject(strService & strComputer & _
\nstrNamespace)
\nSet colItems = objWMIService.ExecQuery(strQuery,,lFlags)
\nCounter = 1
\nFor Each objItem In colItems
\nobjOutputFile.WriteLine(Counter & vbTab & objItem.Name & _
\n”\u00a0\u00a0 =\u00a0\u00a0 ” & objItem.Value)
\nCounter = Counter + 1
\nNext
\nobjOutputFile.Close
\nSet objFileSystem = Nothing<\/p>\n

Download<\/a><\/p>\n

Scripts were tested on HP Compaq nc6400 and HP Compaq\u00a06910p\u00a0laptops, both of them running WinXP SP2. The second script was also tested on HP dc7600 ultra slim PC.<\/p>\n

Note: I’ve found out that some desktops and laptops (like nc6220) does not have CMI installed and the scripts don’t work without CMI. You can download it from here. (SP33341)<\/a><\/p>\n

Update: For all of you who want to change Bios password I’ve created a separe post about it.\u00a0Remotely change Bios password with a script<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

Couple months ago I\u00a0needed to change BIOS setting on all our HP laptops. I wanted to do that remotely because we have many laptops and they are in 5 different locations. After spending some time searching I found very good document from HP. HP Client Management Interface Technical White Paper<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,4],"tags":[51,66,69,488,206,207,223],"_links":{"self":[{"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/12"}],"collection":[{"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/comments?post=12"}],"version-history":[{"count":2,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/12\/revisions"}],"predecessor-version":[{"id":878,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/posts\/12\/revisions\/878"}],"wp:attachment":[{"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/media?parent=12"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/categories?post=12"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.kozeniauskas.com\/itblog\/wp-json\/wp\/v2\/tags?post=12"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}