Lenovo ThinkCentre M90 - System Battery Replacement

@Copyright Lenovo 2010
17
WScript.Echo " SetBiosSetting: " + strReturn
If strReturn < > "Success" Then
WScript.Quit
End If
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_SaveBiosSettings)
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings ";", strReturn
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: " + strReturn
Set a single BIOS setting on the local computer if a
Administrator password exists
Use the sample scripts in the ZIP file as templates to set a single
BIOS setting on the local computer.
Syntax : cscript.exe SetConfigPassword.vbs [Item] [Value]
[Password+Encoding]
Example : cscript.exe SetConfigPassword.vbs “Wake Up on LAN”
Disabled “pass,ascii,us”
’
’ Set specific BIOS Setting
’
On Error Resume Next
Dim colItems
If WScript.Arguments.Count < > 3 Then
WScript.Echo "SetConfigPassword.vbs [setting] [value]
[password+encoding]"
WScript.Quit
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) +
";"
strComputer = "LOCALHOST" ’ Change as needed.
Set objWMIService = GetObject("WinMgmts:"_
&"{ImpersonationLevel=Impersonate}!\\" & strComputer _
&"\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_SetBiosSetting")
For Each objItem in colItems
ObjItem.SetBiosSetting strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo " SetBiosSetting: " + strReturn
If strReturn < > "Success" Then
WScript.Quit
End If
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_SaveBiosSettings)