Lenovo ThinkPad T400 Руководство по развертыванию - Страница 26

Просмотреть онлайн или скачать pdf Руководство по развертыванию для Настольный компьютер Lenovo ThinkPad T400. Lenovo ThinkPad T400 40 страниц. (bulgarian) setup guide
Также для Lenovo ThinkPad T400: Первоначальная настройка (2 страниц), Руководство по настройке (2 страниц), Технические характеристики (4 страниц), Руководство по развертыванию (44 страниц), Брошюра (4 страниц), Уведомление (24 страниц), Уведомление (1 страниц), Руководство пользователя (28 страниц), (Испанский) Плакат по настройке (2 страниц), (Португальский) Установочный плакат (2 страниц), (Португальский) Установочный плакат (2 страниц), (Итальянский) Установочный плакат (2 страниц), (Немецкий) Установочный плакат (2 страниц), (Голландский) Установочный плакат (2 страниц), (Финский) Плакат по настройке (2 страниц), (Датский) Установочный плакат (2 страниц), (Датский) Установочный плакат (2 страниц), (Русский) Установочный плакат (2 страниц), (Румынский) Установочный плакат (2 страниц), Плакат с настройками (2 страниц), Плакат с настройками (2 страниц), Плакат с настройками (2 страниц), Плакат с настройками (2 страниц), Плакат с настройками (2 страниц)

Печатать страницу
Lenovo ThinkPad T400 Руководство по развертыванию
'
' List all 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_BiosSetting")
For Each objItem in colItems
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
Next

Set a single BIOS setting on the local computer

Use the sample scripts in the ZIP file as templates to set a single BIOS setting on the local computer.
Syntax: cscript.exe SetConfig.vbs [Item] [Value]Example: cscript.exe SetConfig.vbs WakeOnLAN Disable
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 2 Then
WScript.Echo "SetConfig.vbs [setting] [value]"
WScript.Quit
End If
strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";"
strComputer = "LOCALHOST"
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate}!\\" & strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting")
For Each objItem in colItems
ObjItem.SetBiosSetting strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo " SetBiosSetting: " + strReturn
If strReturn <> "Success" Then
WScript.Quit
End If
18
Lenovo BIOS Setup using Windows Management Instrumentation Deployment Guide
' Change as needed.
' Change as needed.