Set A Single Bios Setting On A Remote Computer When A Supervisor Password Exists - Lenovo ThinkPad T400 Deployment Manual

WScript.Echo "SetConfigRemote.vbs [setting] [value] [hostname]"
WScript.Quit
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";"
strComputer = WScript.Arguments(2)
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& 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")
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings ";", strReturn
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: " + strReturn
Set a single BIOS setting on a remote computer when a supervisor
password exists
Use the sample scripts in the ZIP file as templates to set a single BIOS setting on a remote computer when a
supervisor password exists.
Syntax: cscript.exe SetConfigPasswordRemote.vbs [Item] [Value]
[Password + Encoding] [Hostname]Example: cscript.exe SetConfigPasswordRemote.vbs WakeOnLAN
Disable pass,ascii,us mattdev-c5
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 4 Then
WScript.Echo "SetConfigPasswordRemote.vbs [setting] [value]
[password + encoding] [hostname]"
WScript.Quit
End If
Appendix A. Sample Visual Basic scripts for configuring BIOS settings
21