contraseña administrador local

Creo que no tienes ningun comando ni nada de eso que las cambie masivamente,
lo unico que puedes es hacerlo por GPO y que ejecute un scrip en el inicio de
la maquina y cambie las password, de esta forma lo hago yo.

"marchena" escribió:

hola necesito cambiar la contraseña de los administradores locales de todas
las máquinas de la red, ¿hay forma automáticamente sin tener que ir una a una?

gracias

Te importaría poner el contenido del script aquí??

http://support.microsoft.com/defaul...us;q272530

"marchena" escribió:

hola necesito cambiar la contraseña de los administradores locales de todas
las máquinas de la red, ¿hay forma automáticamente sin tener que ir una a una?

gracias

-
sNewPassword = "esteeselnuevopassworddelas estaciones"
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
-
le debe dar permiso solo a los computers domain al script y retirar los usuarios de donde lo dejes

y los authentichated users

solo las maquinas del dominio cambiaran el password a el que coloque en la primera linea,,,, ojo las maquinas que esten el la OU que le ponga la politica

solo cambia el password de estaciones 2000 y XP y de servidores Member Server 2000 o 2003... no toca los Domain Controllers


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

"marchena" escribió en el mensaje news:

Te importaría poner el contenido del script aquí??

adicionalmente note que se ejecuta siepre al prender asi se asegura el cambio de passwords... otras soluciones solo sirven cuando estan prendidas las maquinas y lanzan el script desde un punto...

y le cambia el password sin importar como se llame la cuenta por si alguien la renombro... (administrador, administrator, etc)...

deberia adicionalmente hacer la politica de cambiar el nombre de la cuenta administrador para estandarizar las estaciones...

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

"Rodolfo Parrado Gutiérrez [MVP Windows]" escribió en el mensaje news:
-
sNewPassword = "esteeselnuevopassworddelas estaciones"
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
-
le debe dar permiso solo a los computers domain al script y retirar los usuarios de donde lo dejes

y los authentichated users

solo las maquinas del dominio cambiaran el password a el que coloque en la primera linea,,,, ojo las maquinas que esten el la OU que le ponga la politica

solo cambia el password de estaciones 2000 y XP y de servidores Member Server 2000 o 2003... no toca los Domain Controllers


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

"marchena" escribió en el mensaje news:

Te importaría poner el contenido del script aquí??