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

&"{ImpersonationLevel=Impersonate," _ &"authenticationLevel=pktPrivacy}!\\" _ & strComputer & "\root\wmi") Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosPassword") strReturn = "error" For Each objItem in colItems ObjItem.SetBiosPassword strRequest, strReturn Next WScript.Echo strRequest WScript.Echo " SetBiosPassword: " + strReturn Set a Administrator password 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. Note: You cannot set a password if one does not already exist. Syntax: cscript.exe SetAdminPasswordRemote.vbs [old password] [new password] [encoding] [hostname] Example: cscript.exe SetAdminPasswordRemote.vbs oldpass newpass "ascii,us" mattdev-c5 ' ' Update Administrator password ' On Error Resume Next Dim colItems If WScript.Arguments.Count < > 4 Then WScript.Echo "SetAdminPasswordRemote.vbs [newpassword] [encoding] [hostname]" WScript.Quit End If [oldpassword] strRequest="pap,"+WScript.Arguments(0)+","+ WScript.Arguments(1) + ","Wscript.Arguments(2)+";" strCompter = Wscript.Arguments(3) 'change as needed Set objWMIService = GetObject("WinMgmts:" _ &"{ImpersonationLevel=Impersonate," _ &"authenticationLevel=pktPrivacy}!\\" _ & strComputer & "\root\wmi") Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosPassword") strReturn = "error" For Each objItem in colItems ObjItem.SetBiosPassword strRequest, strReturn Next WScript.Echo strRequest WScript.Echo " SetBiosPassword: " + strReturn @Copyright Lenovo 2012 25