HP CMI: Bios-Passwort setzen?

[Darksun777 10]

Hallo,

 

also über das HP CMI kann man mit VBScript ja alle möglichen Bios-Settings einstellen/verändern.

Das klappt auch alles soweit, außer das Bios-Passwort .. das funktioniert einfach nicht.

 

Das hier hab ich verwendet:

 

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)
For each objItem in colItems
objItem.SetBiosSetting oReturn, _
"Setup Password", _
"Geheim", _
"<kbd/>SCANCODE"
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"
Case 5 strReturn = "Invalid Parameter"
Case 6 strReturn = "Access Denied"
Case Else strReturn = "..."
End Select
WScript.Echo "SetBiosSetting() returned: (" & oReturn _
& ") " & strReturn

 

Obwohl mir das Script ein "Success" zurückgibt, wird das Passwort nicht gesetzt.

 

Hat jemand eine Idee woran es liegen könnte?

 

Danke!

[vmorbit 10]

also ich mach das mit dem beispiel script, dass in der CMI doku dabei ist

und das klappt wunderbar...habs ein wenig umgeschrieben, sodass kein userinput erforderlich ist...

 

schau dir das mal an...wenn du willst kann ich das script auch hier posten.