Appendix A. Sample Visual Basic Scripts For Configuring Bios Settings; Restore Default Settings - Lenovo ThinkCentre M82 Deployment Manual

Appendix A. Sample Visual Basic scripts for
configuring BIOS settings

Restore default settings

@Copyright Lenovo 2012
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 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. Pay attention to that
symbol ";" is treated as the end of parameter in script, so make sure
each method input parameter in script will end with ";"
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:" _
&"{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
'Change as needed
19