contraseñas administrador local

Buenas:

Un Saludo a todos, soy nuevo en el foro, mi nombre es José Manuel
(XaMaN). No se muy buen como funciona el foro pero tiene buena pinta. Espero
integrarme en el grupo sin problemas.

Por otra parte quería responder a... no se su nombre...

Te mando el código de un vbs que sirve para cambiar la password del
administrador local de cualquier equipo de la red, a partir de ahí tendrías
que ingeniartelas para ir cogiendo nombres de equipos mediante un bucle e ir
cambiando las claves en cada uno de ellos.

Para lanzar el código del script en todos los equipos de la red tienes
varias posibilidades. Te recomiendo que uses el gpmc de microsoft para
publicarlo, si no lo tienes, group policy es igualmente valido.

Espero haber respondido a tu pregunta.

Un Saludo,

XaMaN

Código vbs:


strComputer = "atl-ws-01"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")

objUser.SetPassword "09iuy%4e"
objUser.SetInfo


"Instalacion en remoto de aplicaciones"
escribió en el
mensaje news:

Estimados colegas,

Tengo un pequeño problema, que quizas podais ayudarme a resolver. Necesito
cambiar las contraseñas de administracion local de unos equipos bajo un
dominio Windows 2000 server. Los clientes son Windows 2000 profesional. Mi
pregunta es, ¿Existe alguna opcion de cambiar las contraseñas en grupo, o
tengo que ir equipo por equipo para hacer esta operacion?

Gracias por todo, colegas

Mi nombre es Antonio, y sobre todo, muchas gracias por tu atencion, pero no
se como lanzar el script, si puedes detallarme un poco mas el proceso, te lo
agradecira,

Atentamente.

"XaMaN" wrote:

Buenas:

Un Saludo a todos, soy nuevo en el foro, mi nombre es José Manuel
(XaMaN). No se muy buen como funciona el foro pero tiene buena pinta. Espero
integrarme en el grupo sin problemas.

Por otra parte quería responder a... no se su nombre...

Te mando el código de un vbs que sirve para cambiar la password del
administrador local de cualquier equipo de la red, a partir de ahí tendrías
que ingeniartelas para ir cogiendo nombres de equipos mediante un bucle e ir
cambiando las claves en cada uno de ellos.

Para lanzar el código del script en todos los equipos de la red tienes
varias posibilidades. Te recomiendo que uses el gpmc de microsoft para
publicarlo, si no lo tienes, group policy es igualmente valido.

Espero haber respondido a tu pregunta.

Un Saludo,

XaMaN

Código vbs:


strComputer = "atl-ws-01"
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")

objUser.SetPassword "09iuy%4e"
objUser.SetInfo


"Instalacion en remoto de aplicaciones"
escribió en el
mensaje news:
> Estimados colegas,
>
> Tengo un pequeño problema, que quizas podais ayudarme a resolver. Necesito
> cambiar las contraseñas de administracion local de unos equipos bajo un
> dominio Windows 2000 server. Los clientes son Windows 2000 profesional. Mi
> pregunta es, ¿Existe alguna opcion de cambiar las contraseñas en grupo, o
> tengo que ir equipo por equipo para hacer esta operacion?
>
> Gracias por todo, colegas

Que tal Antonio:
La verdad es que no hace falta hacer nada de group policy para
lanzar el script.

Simplemente tienes que estar ubicado en un equipo con acceso a la red y
que tenga permisos suficientes.

Una vez en el equipo: inicio->ejecutar: cmd

cscript <PAHT>+<NOMBRE>

y script ejecutado.

NOTAS:
por cierto: el fichero del script debe tener extensión *.vbs
y la variable strComputer debe incluir el nombre de la máquina que quieres
atacar.

"Instalacion en remoto de aplicaciones"
escribió en el
mensaje news:

Mi nombre es Antonio, y sobre todo, muchas gracias por tu atencion, pero

no

se como lanzar el script, si puedes detallarme un poco mas el proceso, te

lo

agradecira,

Atentamente.

"XaMaN" wrote:

> Buenas:
>
> Un Saludo a todos, soy nuevo en el foro, mi nombre es José Manuel
> (XaMaN). No se muy buen como funciona el foro pero tiene buena pinta.

Espero

> integrarme en el grupo sin problemas.
>
> Por otra parte quería responder a... no se su nombre...
>
> Te mando el código de un vbs que sirve para cambiar la password del
> administrador local de cualquier equipo de la red, a partir de ahí

tendrías

> que ingeniartelas para ir cogiendo nombres de equipos mediante un bucle

e ir

> cambiando las claves en cada uno de ellos.
>
> Para lanzar el código del script en todos los equipos de la red

tienes

> varias posibilidades. Te recomiendo que uses el gpmc de microsoft para
> publicarlo, si no lo tienes, group policy es igualmente valido.
>
> Espero haber respondido a tu pregunta.
>
> Un Saludo,
>
> XaMaN
>
> Código vbs:
>
>
> strComputer = "atl-ws-01"
> Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,

user")

>
> objUser.SetPassword "09iuy%4e"
> objUser.SetInfo
>
>
> "Instalacion en remoto de aplicaciones"
> escribió

en el

> mensaje news:
> > Estimados colegas,
> >
> > Tengo un pequeño problema, que quizas podais ayudarme a resolver.

Necesito

> > cambiar las contraseñas de administracion local de unos equipos bajo

un

> > dominio Windows 2000 server. Los clientes son Windows 2000

profesional. Mi

> > pregunta es, ¿Existe alguna opcion de cambiar las contraseñas en

grupo, o

> > tengo que ir equipo por equipo para hacer esta operacion?
> >
> > Gracias por todo, colegas
>
>
>

podria colocar una politica que ejcute un scrip de inico de maquina que cambie el password de las maquinas de la cuenta de administrador local... ojo sin importar como se llame...

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


al archivo le debe dar permiso alos domain computers de lectura ejecucion y listado... y retira el gruupo de usuarios y everyone


-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Instalacion en remoto de aplicaciones" escribió en el mensaje news:

Estimados colegas,

Tengo un pequeño problema, que quizas podais ayudarme a resolver. Necesito
cambiar las contraseñas de administracion local de unos equipos bajo un
dominio Windows 2000 server. Los clientes son Windows 2000 profesional. Mi
pregunta es, ¿Existe alguna opcion de cambiar las contraseñas en grupo, o
tengo que ir equipo por equipo para hacer esta operacion?

Gracias por todo, colegas

Hola a todos
Me llamo Freddy y soy de BOLIVIA
el script abajo lo he usado y esta muy bueno ya que te cambia el password
del ADM aun si lo renombraron

La mejor manera de usar este script es como dice Rodolfo puesto que si lo
comparto en algun directorio cualquiera pueden entrar a ver el contenido del
password

Saludos.




"Rodolfo Parrado Gutiérrez [MVP Windows]"
wrote in message news:
podria colocar una politica que ejcute un scrip de inico de maquina que
cambie el password de las maquinas de la cuenta de administrador local...
ojo sin importar como se llame...

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


al archivo le debe dar permiso alos domain computers de lectura ejecucion y
listado... y retira el gruupo de usuarios y everyone


-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y
no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que
muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Instalacion en remoto de aplicaciones"
escribió en el
mensaje news:

Estimados colegas,

Tengo un pequeño problema, que quizas podais ayudarme a resolver. Necesito
cambiar las contraseñas de administracion local de unos equipos bajo un
dominio Windows 2000 server. Los clientes son Windows 2000 profesional. Mi
pregunta es, ¿Existe alguna opcion de cambiar las contraseñas en grupo, o
tengo que ir equipo por equipo para hacer esta operacion?

Gracias por todo, colegas