Lenovo ThinkPad R400 Manual de implantación - Página 29

WScript.Echo "SetConfigRemote.vbs [setting] [value] [hostname]"

WScript.Quit

End If

strRequest = WScript.Arguments(0) + "," + WScript.Arguments(1) + ";"

strComputer = WScript.Arguments(2)

Set objWMIService = GetObject("WinMgmts:" _

&"{ImpersonationLevel=Impersonate," _

&"authenticationLevel=pktPrivacy}!\\" _

& strComputer & "\root\wmi")

Set colItems = objWMIService.ExecQuery("Select * from Lenovo_SetBiosSetting")

For Each objItem in colItems

ObjItem.SetBiosSetting strRequest, strReturn

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 ";", strReturn

WScript.Echo strRequest

WScript.Echo " SaveBiosSettings: " + strReturn

Set a single BIOS setting on a remote computer when a supervisor

password exists

Use the sample scripts in the ZIP file as templates to set a single BIOS setting on a remote computer when a

supervisor password exists.

Syntax: cscript.exe SetConfigPasswordRemote.vbs [Item] [Value]

[Password + Encoding] [Hostname]Example: cscript.exe SetConfigPasswordRemote.vbs WakeOnLAN

Disable pass,ascii,us mattdev-c5

' Set specific BIOS Setting

On Error Resume Next

Dim colItems

If WScript.Arguments.Count <> 4 Then

WScript.Echo "SetConfigPasswordRemote.vbs [setting] [value]

[password + encoding] [hostname]"

WScript.Quit

End If

Appendix A. Sample Visual Basic scripts for configuring BIOS settings