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

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)

Imprimir página
Lenovo ThinkPad R500 Manual de implantación
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings")
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings ";", strReturn
Next
WScript.Echo strRequest
WScript.Echo " SaveBiosSettings: " + strReturn
Set a single BIOS setting on the local computer if a supervisor password
exists
Use the sample scripts in the ZIP file as templates to set a single BIOS setting on the local computer if a
supervisor password exists.
Syntax: cscript.exe SetConfigPassword.vbs [Item] [Value]
[Password + Encoding]
Example: cscript.exe SetConfigPassword.vbs WakeOnLAN Disable pass,ascii,us
'
' Set specific BIOS Setting
'
On Error Resume Next
Dim colItems
If WScript.Arguments.Count <> 3 Then
WScript.Echo "SetConfigPassword.vbs [setting] [value] [password + encoding]"
WScript.Quit
End If
strRequest = 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_SetBiosSetting")
For Each objItem in colItems
ObjItem.SetBiosSetting strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo " SetBiosSetting: " + strReturn
If strReturn <> "Success" Then
WScript.Quit
End If
Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SaveBiosSettings")
strReturn = "error"
For Each objItem in colItems
ObjItem.SaveBiosSettings WScript.Arguments(2) + ";", strReturn
Next
' Change as needed.
Appendix A. Sample Visual Basic scripts for configuring BIOS settings
19