Lenovo ThinkPad T400 Manual de implantación - Página 31

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