Set A Single Bios Setting On A Remote Computer - Lenovo BIOS Windows Management Deployment Manual

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
End If
strComputer = WScript.Arguments(0)
Set objWMIService = GetObject("WinMgmts:" _
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_BiosSetting")
For Each objItem in colItems
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
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";"
strComputer = WScript.Arguments(2)
Set objWMIService = GetObject("WinMgmts:" _
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting")
16
Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide
WScript.Echo "ListAllRemote.vbs [hostname]"
WScript.Quit
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer & "\root\wmi")
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
WScript.Echo "SetConfigRemote.vbs [setting] [value] [hostname]"
WScript.Quit
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer & "\root\wmi")