List All Bios Settings On The Remote Computer; Set A Single Bios Setting On A Remote Computer - Lenovo ThinkPad T400 Deployment Manual

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]Example: cscript.exe
SetConfigRemote.vbs WakeOnLAN Disable mattdev-c5
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 3 Then
20
Lenovo BIOS Setup using Windows Management Instrumentation Deployment Guide