Lenovo ThinkCentre M58 Deployment Manual - Page 17

Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkCentre M58. Lenovo ThinkCentre M58 24 pages. (simplified chinese) power manager deployment guide
Also for Lenovo ThinkCentre M58: Brochure (4 pages), Deployment Manual (44 pages), Deployment Manual (44 pages), Manual (4 pages), (French) Guide De Déploiement (46 pages), (Italian) Deployment Manual (44 pages), (German) Implementierungshandbuch (46 pages), (Japanese) Deployment Manual (44 pages), Deployment Manual (42 pages)

Print Page
Lenovo ThinkCentre M58 Deployment Manual
Appendix A. Sample Visual Basic scripts for
configuring BIOS settings
 
 

Restore default settings

 
@Copyright Lenovo 2009
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
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
11