List All Bios Settings On A Remote Computer; Set A Single Bios Setting On A Remote Computer - Lenovo ThinkCentre M82 Deployment Manual

List all BIOS settings on a remote computer

Set a single BIOS setting on a remote computer

Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide for Desktop
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings Wscript.Arguments(2)+";", strReturn
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: "
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
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
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer &
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
End If
Next
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]
[Hostname]
Example: cscript.exe SetConfigRemote.vbs "Wake Up on LAN"
Disabled mattdev-c5
'
' Set specific BIOS Setting
+ strReturn
= GetObject("WinMgmts:" _
"\root\wmi")
+ " = "
[Hostname]
+ StrValue
[Value]
22