Lenovo ThinkPad R400 Deployment Manual - Page 24

Browse online or download pdf Deployment Manual for Desktop Lenovo ThinkPad R400. Lenovo ThinkPad R400 36 pages. (bulgarian) setup guide
Also for Lenovo ThinkPad R400: Initial Setup (2 pages), Setup Manual (2 pages), Brochure (4 pages), Specifications (4 pages), Deployment Manual (44 pages), Brochure (4 pages), Notice (24 pages), Notice (1 pages), Deployment Manual (40 pages), User Manual (28 pages), (Spanish) Setup Poster (2 pages), (Portuguese) Setup Poster (2 pages), (Portuguese) Setup Poster (2 pages), (Italian) Setup Poster (2 pages), (German) Setup Poster (2 pages), (Dutch) Setup Poster (2 pages), (Finnish) Setup Poster (2 pages), (Danish) Setup Poster (2 pages), (Danish) Setup Poster (2 pages), (Russian) Setup Poster (2 pages), (Romanian) Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages), Setup Poster (2 pages)

Lenovo ThinkPad R400 Deployment Manual
Syntax: cscript.exe ListAllRemote.vbs [Hostname]
Example: cscript.exe ListAllRemote.vbs mattdev-c5
'
' List all BIOS settings
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 1 Then
End If
strComputer = WScript.Arguments(0)
Set objWMIService = GetObject("WinMgmts:" _
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_BiosSetting")
For Each objItem in colItems
Next

Set a single BIOS setting on a remote computer

Use the sample scripts in the ZIP file as templates to set a single BIOS setting on a
remote computer.
Syntax: cscript.exe SetConfigRemote.vbs [Item] [Value] [Hostname]
Example: cscript.exe SetConfigRemote.vbs WakeOnLAN Disable mattdev-c5
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 3 Then
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";"
strComputer = WScript.Arguments(2)
Set objWMIService = GetObject("WinMgmts:" _
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting")
16
Lenovo BIOS Windows Management Instrumentation Interface Deployment Guide
WScript.Echo "ListAllRemote.vbs [hostname]"
WScript.Quit
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer & "\root\wmi")
If Len(objItem.CurrentSetting) > 0 Then
Setting = ObjItem.CurrentSetting
StrItem = Left(ObjItem.CurrentSetting, InStr(ObjItem.CurrentSetting, ",")
- 1)
StrValue = Mid(ObjItem.CurrentSetting, InStr(ObjItem.CurrentSetting, ",")
+ 1, 256)
WScript.Echo StrItem + " = " + StrValue
End If
WScript.Echo "SetConfigRemote.vbs [setting] [value] [hostname]"
WScript.Quit
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer & "\root\wmi")