Lenovo ThinkCentre M90p Podręcznik wdrażania - Strona 29

Przeglądaj online lub pobierz pdf Podręcznik wdrażania dla Pulpit Lenovo ThinkCentre M90p. Lenovo ThinkCentre M90p 32 stron. (simplified chinese) power manager deployment guide
Również dla Lenovo ThinkCentre M90p: Specyfikacje (4 strony), Podręcznik wdrażania (44 strony), Podręcznik wdrażania (44 strony), Podręcznik konfiguracji (40 strony), (Angielski) Podręcznik wdrażania (46 strony), (Włoski) Podręcznik wdrażania (44 strony), (Niemiecki) Podręcznik wdrażania (46 strony), (Japoński) Podręcznik wdrażania (44 strony), Podręcznik wdrażania (42 strony)

Lenovo ThinkCentre M90p Podręcznik wdrażania
Set a Administrator password on a remote computer
when a Administrator password exists
@Copyright Lenovo 2010
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
&
strComputer &
Set
colItems
=
Lenovo_SetBiosPassword")
strReturn = "error"
For
Each objItem in colItems
ObjItem.SetBiosPassword strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo "
SetBiosPassword: "
Use the sample scripts in the ZIP file as templates to set a single
BIOS setting on a remote computer.
Note: You cannot set a password if one does not already exist.
Syntax: cscript.exe SetAdminPasswordRemote.vbs [old password]
[new password] [encoding] [hostname]
Example: cscript.exe SetAdminPasswordRemote.vbs oldpass newpass
"ascii,us" mattdev-c5
'
' Update Administrator password
'
On
Error Resume Next
Dim colItems
If WScript.Arguments.Count < > 4 Then
WScript.Echo
"SetAdminPasswordRemote.vbs
[newpassword] [encoding] [hostname]"
WScript.Quit
End If
strRequest="pap,"+WScript.Arguments(0)+","+ WScript.Arguments(1)
+ ","Wscript.Arguments(2)+";"
strCompter = Wscript.Arguments(3) 'change as needed
Set
objWMIService
&"{ImpersonationLevel=Impersonate," _
&"authenticationLevel=pktPrivacy}!\\" _
&
strComputer &
Set
colItems
=
Lenovo_SetBiosPassword")
strReturn = "error"
For
Each objItem in colItems
ObjItem.SetBiosPassword strRequest, strReturn
Next
WScript.Echo strRequest
WScript.Echo "
SetBiosPassword: "
"\root\wmi")
objWMIService.ExecQuery("Select
+ strReturn
= GetObject("WinMgmts:" _
"\root\wmi")
objWMIService.ExecQuery("Select
+ strReturn
*
from
[oldpassword]
*
from
21