Lenovo ThinkCentre M91 Deployment Manual - Page 29

Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkCentre M91. Lenovo ThinkCentre M91 34 pages. (simplified chinese) power manager deployment guide
Also for Lenovo ThinkCentre M91: Specifications (5 pages), Deployment Manual (44 pages), Deployment Manual (44 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 M91 Deployment Manual
Set a single BIOS setting on a remote computer when
a Administrator password exists
@Copyright Lenovo 2011
‟
On
Error Resume Next
Dim colItems
If WScript.Arguments.Count < > 3 Then
WScript.Echo "SetConfigRemote.vbs
WScript.Quit
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) +
";"
strComputer = WScript.Arguments(2)
Set
objWMIService
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
&
strComputer &
Set
colItems
=
Lenovo_SetBiosSetting")
For
Each objItem in colItems
ObjItem.SetBiosSetting strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo "
SetBiosSetting: "
If strReturn <> "Success" Then
WScript.Quit
End If
Set
colItems
=
Lenovo_SaveBiosSettings")
strReturn = "error"
For
Each objItem in colItems
ObjItem.SaveBiosSettings ";",
Next
WScript.Echo strRequest
WScript.Echo "
SaveBiosSettings: "
Use the sample scripts in the ZIP file as templates to set a single
BIOS setting on a remote computer.
Syntax: cscript.exe SetConfigPasswordRemote.vbs [Item]
[Value] [Password+Encoding] [Hostname]
Example: cscript.exe SetConfigPasswordRemote.vbs "Wake Up on
LAN" Disabled "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
[password+encoding] [hostname]"
WScript.Quit
[setting]
= GetObject("WinMgmts:" _
"\root\wmi")
objWMIService.ExecQuery("Select
+ strReturn
objWMIService.ExecQuery("Select
strReturn
+ strReturn
[value] [hostname]"
*
from
*
from
[Item]
[value]
21