Lenovo ThinkPad R400 Deployment Manual - Page 21

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

Appendix A. Sample Visual Basic scripts for configuring BIOS

settings

The Visual Basic command line scripts in the ZIP file are examples that you may

find helpful when configuring BIOS settings.

The scripts in the ZIP file can be used as-is on Windows XP or Windows Vista to

modify BIOS settings on your Lenovo computer. The scripts can be executed on a

command prompt using the cscript.exe utility. On Windows Vista, you must run

the scripts from an administrator command prompt.

Note: The scripts in this appendix are for reference only. To copy and paste scripts,

use the scripts in the ZIP file.

Use the example scripts in the ZIP file as templates to restore default settings on

the local computer.

Syntax: cscript.exe LoadDefaults.vbs

Example: cscript.exe LoadDefaults.vbs

' Load default BIOS settings

On Error Resume Next

Dim colItems

strComputer = "LOCALHOST"

Set objWMIService = GetObject("WinMgmts:" _

Set colItems = objWMIService.ExecQuery("Select * from Lenovo_LoadDefaultSettings")

strReturn = "error"

For Each objItem in colItems

WScript.Echo " LoadDefaultSettings: " + strReturn

If strReturn <> "Success" Then

End If

Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings")

strReturn = "error"

For Each objItem in colItems

WScript.Echo " SaveBiosSettings: " + strReturn

Use the sample scripts in the ZIP file as templates to list all BIOS settings and

values on the local computer.

&"{ImpersonationLevel=Impersonate}!\\" & strComputer & "\root\wmi")

ObjItem.LoadDefaultSettings ";", strReturn

WScript.Quit

ObjItem.SaveBiosSettings ";", strReturn

' Change as needed.