Lenovo ThinkPad R400 Deployment Manual - Page 27

Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkPad R400. Lenovo ThinkPad R400 36 pages. (bulgarian) setup guide
Also for Lenovo ThinkPad R400: Initial Setup (2 pages), Setup Manual (2 pages), Brochure (4 pages), Specifications (4 pages), Deployment Manual (44 pages), Brochure (4 pages), Notice (24 pages), Notice (1 pages), Deployment Manual (40 pages), User Manual (28 pages), (Spanish) Setup Poster (2 pages), (Portuguese) Setup Poster (2 pages), (Portuguese) Setup Poster (2 pages), (Italian) Setup Poster (2 pages), (German) Setup Poster (2 pages), (Dutch) Setup Poster (2 pages), (Finnish) Setup Poster (2 pages), (Danish) Setup Poster (2 pages), (Danish) Setup Poster (2 pages), (Russian) Setup Poster (2 pages), (Romanian) Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages)

Print Page
Lenovo ThinkPad R400 Deployment Manual
Example: cscript.exe SetSupervisorPasswordRemote.vbs oldpass newpass
ascii,us mattdev-c5
'
' Update Admnistrator Password
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 4 Then
WScript.Echo "SetSupervisorPasswordRemote.vbs [old Password]
[new Password] [encoding] [hostname]"
WScript.Quit
End If;
strRequest = "pap," + WScript.Arguments(0) + "," + WScript.Arguments(1)
+ "," + WScript.Arguments(2) + "*"
strComputer = WScript.Arguments(3)
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 " SetBiosPassword: "+ strReturn
Appendix A. Sample Visual Basic scripts for configuring BIOS settings
19