Cambio de Password al Administrador del equipoT

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

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

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

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

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
>>>>
>>>>
>>>
>>>
>>
>>
>
>