Lenovo ThinkPad R400 Dağıtım Kılavuzu - Sayfa 31

Masaüstü Lenovo ThinkPad R400 için çevrimiçi göz atın veya pdf Dağıtım Kılavuzu indirin. Lenovo ThinkPad R400 40 sayfaları. (bulgarian) setup guide
Ayrıca Lenovo ThinkPad R400 için: İlk Kurulum (2 sayfalar), Kurulum Kılavuzu (2 sayfalar), Broşür (4 sayfalar), Teknik Özellikler (4 sayfalar), Dağıtım Kılavuzu (44 sayfalar), Broşür (4 sayfalar), Uyarı (24 sayfalar), Uyarı (1 sayfalar), Dağıtım Kılavuzu (36 sayfalar), Kullanıcı Kılavuzu (28 sayfalar), (İspanyolca) Kurulum Posteri (2 sayfalar), (Portekizce) Kurulum Posteri (2 sayfalar), (Portekizce) Kurulum Posteri (2 sayfalar), (İtalyanca) Kurulum Posteri (2 sayfalar), (Almanca) Kurulum Posteri (2 sayfalar), (Felemenkçe) Kurulum Posteri (2 sayfalar), (Fince) Kurulum Posteri (2 sayfalar), (Danca) Kurulum Posteri (2 sayfalar), (Danca) Kurulum Posteri (2 sayfalar), (Rusça) Kurulum Posteri (2 sayfalar), (Romence) Kurulum Posteri (2 sayfalar), Kurulum Posteri (2 sayfalar), Kurulum Posteri (2 sayfalar), Kurulum Posteri (2 sayfalar), Kurulum Posteri (2 sayfalar), Kurulum Posteri (2 sayfalar)

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

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

WScript.Echo " SetBiosPassword: "+ strReturn

' Change as needed.

Appendix A. Sample Visual Basic scripts for configuring BIOS settings