Lenovo ThinkPad R400 Посібник з розгортання - Сторінка 26

Переглянути онлайн або завантажити pdf Посібник з розгортання для Робочий стіл Lenovo ThinkPad R400. Lenovo ThinkPad R400 40 сторінок. (bulgarian) setup guide
Також для Lenovo ThinkPad R400: Початкове налаштування (2 сторінок), Посібник з налаштування (2 сторінок), Брошура (4 сторінок), Технічні характеристики (4 сторінок), Посібник з розгортання (44 сторінок), Брошура (4 сторінок), Повідомлення (24 сторінок), Повідомлення (1 сторінок), Посібник з розгортання (36 сторінок), Посібник користувача (28 сторінок), (іспанською) Постер установки (2 сторінок), (португальською) Постер про встановлення (2 сторінок), (португальською) Постер про встановлення (2 сторінок), (Італійська) Постер установки (2 сторінок), (Німецькою) Постер установки (2 сторінок), (голландською) Постер установки (2 сторінок), (фінська) Постер установки (2 сторінок), (данська) Постер установки (2 сторінок), (данська) Постер установки (2 сторінок), (українською мовою) Постер установки (2 сторінок), (румунською) Постер установки (2 сторінок), Плакат з установкою (2 сторінок), Плакат з установкою (2 сторінок), Плакат з установкою (2 сторінок), Плакат з установкою (2 сторінок), Плакат з установкою (2 сторінок)

Друкувати сторінку
Lenovo ThinkPad R400 Посібник з розгортання
'
' 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.