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

Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide for Workstations 18
End If
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_SaveBiosSettings")
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings WScript.Arguments(2) + ",",
strReturn
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.
Syntax:
cscript.exe ListAllRemote.vbs [Hostname]
Example:
cscript.exe ListAllRemote.vbs mattdev-c5
’
’ List all BIOS settings
’
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 1 Then
WScript.Echo"ListAllRemote.vbs [hostname]"
WScript.Quit
End If
strComputer = WScript.Arguments(0)
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& 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 ， 256 ）
WScript.Echo StrItem + " = " + StrValue
End If
Next
Set a single BIOS setting on a remote computer
Usethesamplescriptsinthe ZIPfileastemplatesto set asingle
BIOSsettingonaremotecomputer.

Syntax: cscript.exe SetConfigRemote.vbs [Item] [Value]
[Hostname]