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

' On Error Resume Next Dim colItems If WScript.Arguments.Count 4 Then WScript.Echo "SetConfigPasswordRemote.vbs [setting] [password + encoding] [hostname]" WScript.Quit End If [value] strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + "," strComputer = WScript.Arguments(3) 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 WScript.Arguments(2)+",", Next strReturn WScript.Echo strRequest WScript.Echo " SaveBiosSettings: " + strReturn Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide for Desktop 16