Lenovo ThinkPad R500 Manual de implantação - Página 31

Procurar online ou descarregar pdf Manual de implantação para Ambiente de trabalho Lenovo ThinkPad R500. Lenovo ThinkPad R500 40 páginas. Bios windows management instrumentation interface
Também para Lenovo ThinkPad R500: Cartaz de instalação (2 páginas), Manual de configuração inicial (2 páginas), Brochura (4 páginas), Especificações (4 páginas), Manual de implantação (44 páginas), Aviso (24 páginas), Aviso (1 páginas), Manual de implantação (36 páginas), Manual do utilizador (28 páginas)

Imprimir página
Lenovo ThinkPad R500 Manual de implantação
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