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

Просмотреть онлайн или скачать 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 Руководство по развертыванию
strRequest = "pap," + WScript.Arguments(0) + "," + WScript.Arguments(1) + "," +
WScript.Arguments(2) + ";"
strComputer = "LOCALHOST"
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate}!\\" & strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosPassword")
strReturn = "error"
For Each objItem in colItems
ObjItem.SetBiosPassword strRequest, strReturn
Next
WScript.Echo " SetBiosPassword: "+ strReturn
Set a supervisor password on a remote computer when a supervisor
password exists
Use the sample scripts in the ZIP file as templates to set the supervisor password on a remote computer
when a supervisor password exists.
Note: You cannot set a supervisor password if one does not already exist.
Syntax: cscript.exe SetSupervisorPasswordRemote.vbs [Old Password]
[New Password] [encoding] [Hostname]Example: cscript.exe SetSupervisorPasswordRemote.vbs oldpass newpass
ascii,us mattdev-c5
'
' Update Admnistrator Password
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 4 Then
WScript.Echo "SetSupervisorPasswordRemote.vbs [old Password]
[new Password] [encoding] [hostname]"
WScript.Quit
End If;
strRequest = "pap," + WScript.Arguments(0) + "," + WScript.Arguments(1)
+ "," + WScript.Arguments(2) + "*"
strComputer = WScript.Arguments(3)
Set objWMIService = GetObject("WinMgmts:" _
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
& strComputer & "\root\wmi")
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosPassword")
strReturn = "error"
For Each objItem in colItems
ObjItem.SetBiosPassword strRequest, strReturn
Next
WScript.Echo " SetBiosPassword: "+ strReturn
' Change as needed.
Appendix A. Sample Visual Basic scripts for configuring BIOS settings
23