Cambio de Password al Administrador del equipoT

SysVolombre_dominio\Policies\{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}\Machin
e\Scripts\Startup

Creas una Unidad Organizativa en Usuarios y equipos de AD y añades los
equipos que quieres que ejecuten el script
le agregas directiva de grupo
Configuración de equipo
Comandos de inicio/apagado
Inicio
añades el script

Creo que no me dejo nada.

Espero serte de ayuda.
Salu2!

Juansa
MS MVP Windows Server Networking

"La vida es fascinante: sólo hay que mirarla a través de las gafas
correctas".
Alejandro Dumas (1803-1870); escritor francés
"Aprender sin pensar es inútil. Pensar sin aprender, peligroso".
Confucio (551-479 a. C.); filósofo chino.
"Un error no se convierte en verdad por el hecho de que todo el mundo
crea en él".
Mahatma Gandhi (1869-1948); político y pensador indio.

"Freddy Vargas" wrote in message
news:#

Algo que no entiendo..
el script de inicio de maquina donde lo tengo que poner..
yo pensaba que se ponia en la carpeta NETLOGON...pero lo usuarios pueden
editar esto..
saludos

"Gregorio Parra" wrote in message
news:OaK5zP$
> Ese Script corre como un script de inicio de maquina, este script no
> correra como script de inicio de sesion de usuario, ya que el usuario,
> supongo no tiene derechos de administracion, y no te preocupes, que
> esta
> script no cambia la cuenta de administrador del dominio
>
> PD una cosa interesante, es que este script Cambia el password al
> administrador local de las maquinas, NO importa como se llame,
> administrador, administrator, etc
> ___________________
> Gregorio Parra.
>
> "Freddy Vargas" escribió en el mensaje
> news:
>> Pero este script ...si al iniciar session el usuario no es

administrador

>> correra? o corre bajo un contexto de local system?
>> saludos
>> "Juansa [MS MVP]" wrote in message
>> news:O3jnK$
>>> Puede servirte esto?
>>>
>>> Cambiar password de administrador local estaciones script de inicio
>>> de
>>> maquinas..
>>>
>>>
>>> sNewPassword = "testpassword"
>>> Set oWshNet = CreateObject("WScript.Network")
>>> sComputer = oWshNet.ComputerName
>>> sAdminName = GetAdministratorName
>>> On Error Resume Next
>>> Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName &
>>> ",user")
>>> oUser.SetPassword sNewPassword
>>> oUser.SetInfo
>>> On Error Goto 0
>>>
>>> Function GetAdministratorName()
>>> Dim sUserSID, oWshNetwork, oUserAccount
>>> Set oWshNetwork = CreateObject("WScript.Network")
>>> Set oUserAccounts = GetObject( _
>>> "winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
>>> .ExecQuery("Select Name, SID from Win32_UserAccount" _
>>> & " WHERE Domain = '" & oWshNetwork.ComputerName & "'")
>>> On Error Resume Next
>>> For Each oUserAccount In oUserAccounts
>>> If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
>>> Right(oUserAccount.SID, 4) = "-500" Then
>>> GetAdministratorName = oUserAccount.Name
>>> Exit For
>>> End if
>>> Next
>>> End Function
>>>
>>>
>>> By Rodolfo Parrado
>>>
>>> Espero serte de ayuda.
>>> Salu2!
>>>
>>> Juansa
>>> MS MVP Windows Server Networking
>>>
>>> "La vida es fascinante: sólo hay que mirarla a través de las gafas
>>> correctas".
>>> Alejandro Dumas (1803-1870); escritor francés
>>> "Aprender sin pensar es inútil. Pensar sin aprender, peligroso".
>>> Confucio (551-479 a. C.); filósofo chino.
>>> "Un error no se convierte en verdad por el hecho de que todo el mundo
>>> crea en él".
>>> Mahatma Gandhi (1869-1948); político y pensador indio.
>>>
>>> "Freddy Vargas" wrote in message
>>> news:
>>>> Tengo lo siguiente
>>>> Un ambiente de Dominio
>>>> Los usuarios se logean al dominio y a la vez pertencen al grupo de
>>>> usuario
>>>> avanzado..
>>>> dentro del grupo administradores estan los DOMAIN ADMINS.. y el
>>>> adminsitrador del equipo ademas otro grupo de administracion que
>>>> cree
>>>> Quiero hacer lo siguiente
>>>>
>>>> Un metodo..no se cual para cambiar el password del usuario
>>>> ADMINISTRADOR
>>> DEL
>>>> EQUIPO automaticamente.. como se podra hacer?
>>>>
>>>>
>>>> saludos
>>>>
>>>>
>>>
>>>
>>
>>
>
>