Lenovo ThinkStation C20 - List All BIOS Settings on the Local Computer; Set a Single BIOS Setting on the Local Computer

Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide for Workstations 16
List all BIOS settings on the local computer
Usethesamplescriptsinthe ZIPfileastemplatesto listall
BIOSsettingsandvalueson thelocalcomputer.
Syntax:
cscript.exe ListAll.vbs
Example:
cscript.exe ListAll.vbs
’
’ List all BIOS settings
’
On Error Resume Next
Dim colItems
strComputer = "LOCALHOST" ’ Change as needed.
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate}!\\" & strComputer _
&"\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_BiosSetting")
For Each objItem in colItems
If Len(objItem.CurrentSetting) > 0 Then
Setting = ObjItem.CurrentSetting
StrItem = Left(ObjItem.CurrentSetting,InStr(
ObjItem.CurrentSetting, “,”)-1)
StrValue = Mid(ObjItem.CurrentSetting,InStr(
ObjItem.CurrentSetting, “,”)-1)
WScript.Echo StrItem + " = " + StrValue
End If
Next
Set a single BIOS setting on the local computer
Usethesamplescriptsinthe ZIPfileastemplatesto set asingle
BIOSsettingonthelocalcomputer.
Syntax : cscript.exe SetConfig.vbs [Item] [Value]
Example : cscript.exe SetConfig.vbs “Wake on LAN” Disabled
’
’ Set specific BIOS Setting
’
On Error Resume Next
Dim colItems
If WScript.Arguments.Count < > 2 Then
WScript.Echo "SetConfig.vbs [setting] [value]"
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