Lenovo ThinkStation D20 Deployment Manual - Page 21
Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkStation D20. Lenovo ThinkStation D20 28 pages. Windows xp professional x64 edition recovery and conversion kit - japan
Also for Lenovo ThinkStation D20: Brochure (36 pages), Specifications (4 pages), Brochure & Specs (4 pages), Manual (8 pages), Function Manual (1 pages), (Japanese) Software Manual (8 pages)
Print Page
Appendix A. Sample Visual Basic scripts for
configuring BIOS settings
Restore default settings
@Copyright Lenovo 2010
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,
Windows Vista, or Windows 7 to modify BIOS settings on your
Lenovo computer. .
The script can be executed on a command prompt
using the cscript.exe utility. On Windows Vista and Windows 7, 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
Example: cscript.exe LoadDefaults.vbs
'
' Load default BIOS settings
'
On Error Resume Next
Dim colItems
strComputer = "LOCALHOST"
Set
objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate}!\\" & strComputer _
&"\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from
Lenovo_LoadDefaultSettings")
strReturn = "error"
For Each objItem in colItems
ObjItem.LoadDefaultSettings ",", strReturn
Next
WScript.Echo "
LoadDefaultSettings: " + 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
Next
WScript.Echo "
SaveBiosSettings: " + strReturn
LoadDefaults.vbs
'Change as needed
15