Set A Single Bios Setting On The Local Computer If A Supervisor Password Exists; List All Bios Settings On The Remote Computer - Lenovo BIOS Windows Management Deployment Manual

strReturn = "error"
For Each objItem in colItems
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: " + strReturn
Set a single BIOS setting on the local computer if a supervisor
password exists
Use the sample scripts in the ZIP file as templates to set a single BIOS setting on
the local computer if a supervisor password exists.
Syntax: cscript.exe SetConfigPassword.vbs [Item] [Value]
[Password + Encoding]
Example: cscript.exe SetConfigPassword.vbs WakeOnLAN Disable pass,ascii,us
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 3 Then
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + "," +
strComputer = "LOCALHOST"
Set objWMIService = GetObject("WinMgmts:" _
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting")
For Each objItem in colItems
Next
WScript.Echo strRequest
WScript.Echo " SetBiosSetting: " + strReturn
If strReturn <> "Success" Then
End If
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings")
strReturn = "error"
For Each objItem in colItems
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: " + strReturn

List all BIOS settings on the remote computer

Use the sample scripts in the ZIP file as templates to list all BIOS settings and
values on a remote computer.
ObjItem.SaveBiosSettings ";", strReturn
WScript.Echo "SetConfigPassword.vbs [setting] [value] [password + encoding]"
WScript.Quit
WScript.Arguments(2) + ";"
&"{ImpersonationLevel=Impersonate}!\\" & strComputer & "\root\wmi")
ObjItem.SetBiosSetting strRequest, strReturn
WScript.Quit
ObjItem.SaveBiosSettings WScript.Arguments(2) + ";", strReturn
Appendix A. Sample Visual Basic scripts for configuring BIOS settings
' Change as needed.
15