Lenovo ThinkPad R400 Deployment Manual - Page 29

Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkPad R400. Lenovo ThinkPad R400 40 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 (36 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

WScript.Echo "SetConfigRemote.vbs [setting] [value] [hostname]"

WScript.Quit

End If

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

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 ";", strReturn

WScript.Echo strRequest

WScript.Echo " SaveBiosSettings: " + strReturn

Set a single BIOS setting on a remote computer when a supervisor

password exists

Use the sample scripts in the ZIP file as templates to set a single BIOS setting on a remote computer when a

supervisor password exists.

Syntax: cscript.exe SetConfigPasswordRemote.vbs [Item] [Value]

[Password + Encoding] [Hostname]Example: cscript.exe SetConfigPasswordRemote.vbs WakeOnLAN

Disable 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 [setting] [value]

[password + encoding] [hostname]"

WScript.Quit

End If

Appendix A. Sample Visual Basic scripts for configuring BIOS settings