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

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 ",", strReturn Next WScript.Echo strRequest WScript.Echo " SaveBiosSettings: " + strReturn Set a single BIOS setting on the local computer if a Administration password exists Use the sample scripts in the ZIP file as templates to set a single BIOS setting on the local computer if a supervisor password exists. Syntax: cscript.exe SetConfigPassword.vbs [Item] [Value] [Password + Encoding] Example: cscript.exe SetConfigPassword.vbs "Wake on LAN" Disabled pass,ascii,us ' ' Set specific BIOS Setting ' On Error Resume Next Dim colItems If WScript.Arguments.Count < > 3 Then WScript.Echo "SetConfigPassword.vbs [password + encoding]" WScript.Quit End If [setting] [value] strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + "," strComputer = "LOCALHOST" ' Change as needed. objWMISevice = GetObject("WinMgmts:" _ &"{ImpersonationLevel=Impersonate}!\\" & 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 @Copyright Lenovo 2009 13