Lenovo ThinkCentre M58 BIOS Windows Management Instrumentation Interface Deplo - Page 20

End If Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings") strReturn = "error" For Each objItem in colItems ObjItem.SaveBiosSettings strReturn Next WScript.Arguments(2) + ",", 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] Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide for Desktop 14