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

Navegue en línea o descargue pdf Manual de implantación para Escritorio Lenovo ThinkPad R500. Lenovo ThinkPad R500 40 páginas. Bios windows management instrumentation interface
También para Lenovo ThinkPad R500: Póster de instalación (2 páginas), Manual de configuración inicial (2 páginas), Folleto (4 páginas), Especificaciones (4 páginas), Manual de implantación (44 páginas), Aviso (24 páginas), Aviso (1 páginas), Manual de implantación (36 páginas), Manual del usuario (28 páginas)

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