Set A Single Bios Setting On A Remote Computer When A Administrator Password Exists - Lenovo ThinkCentre M90 Deployment Manual

Set a single BIOS setting on a remote computer when
a Administrator password exists
@Copyright Lenovo 2010
'
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]
19