Lenovo ThinkCentre M92 BIOS Windows Management Instrumentation Interface Deplo - Page 31

' On Error Resume Next Dim colItems If WScript.Arguments.Count < > 3 Then WScript.Echo "SetConfigRemote.vbs [setting] WScript.Quit End If [value] [hostname]" strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";" strComputer = WScript.Arguments(2) Set objWMIService = GetObject("WinMgmts:" _ &"{ImpersonationLevel=Impersonate," _ &"authenticationLevel=pktPrivacy}!\\" _ & strComputer & "\root\wmi") Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting") For Each objItem in colItems ObjItem.SetBiosSetting strRequest, strReturn Next WScript.Echo strRequest WScript.Echo " SetBiosSetting: " + strReturn If strReturn "Success" Then WScript.Quit End If Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings") strReturn = "error" For Each objItem in colItems ObjItem.SaveBiosSettings ";", Next strReturn WScript.Echo strRequest WScript.Echo " SaveBiosSettings: " + strReturn Set a single BIOS setting on a remote computer when a Administrator password exists Use the sample scripts in the ZIP file as templates to set a single BIOS setting on a remote computer. Syntax: cscript.exe SetConfigPasswordRemote.vbs [Item] [Value] [Password+Encoding] [Hostname] Example: cscript.exe SetConfigPasswordRemote.vbs "Wake Up on LAN" Disabled "pass,ascii,us" mattdev-c5 ' ' Set specific BIOS Setting ' On Error Resume Next Dim colItems If WScript.Arguments.Count < > 4 Then WScript.Echo "SetConfigPasswordRemote.vbs [password+encoding] [hostname]" WScript.Quit [Item] [value] @Copyright Lenovo 2012 23