Cambiar la contraseña del administrador local en forma masiva

Lo más cómodo es usar la utilidad pspasswd de las pstools. Puedes descargarla gratuitamente desde la web de systernals.
http://www.sysinternals.com/Utilities/PsTools.html

De paso echa un vistazo al resto de utilidades que ofrece esta web. Son una maravilla.

Saludos

José Antonio Quílez
Sevilla - España
http://msmvps.com/blogs/quilez/

"David" escribió en el mensaje
news:

Estimados amigos

Algunos de ustedes tiene algun aplicativo que me recomienden para poder
realizar el cambio de la contraseña del administrador local de mis estaciones
pero deseo realizarlo en forma masiva, sin necesidad de ir maquina por
maquina.

Muchas Gracias

Prueba con este script.

'
' Nota : Este script cambia la contraseña del administrador local
' de las maquinas que se expecifican en el fichero chgadmpwd.txt,
' poniendo como nueva contraseña "prueba".
' Es importante que en este fichero haya SOLO un nombre de PC por línea y
que no
' haya espacios en blanco.

dim filesys, text, readfile, contents, fecha, fecha1

On Error Resume Next
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile("chgadmpwd.txt", 1, false)
set writefile = filesys.OpenTextFile("chgadmpwd.log",8, true)

do while readfile.AtEndOfStream = False
Name = cstr(readfile.ReadLine)
texto = Name + " "
Wscript.echo Name

set usr = GetObject("WinNT://" & Name & "/administrador,user")
If Err Then
writefile.write cstr(date()) + " " + cstr(Time()) + " " + texto + "No
accesible" + Chr(13) + Chr(10)
Err.Clear
Else
usr.SetPassword "prueba"
usr.SetInfo
writefile.write cstr(date()) + " " + cstr(Time()) + " " + texto +
"Cambiado con Exito" + Chr(13) + Chr(10)
end If
set usr=Nothing
Loop
readfile.close
writefile.close
Wscript.echo "FIN"



"David" escribió en el mensaje
news:

Estimados amigos

Algunos de ustedes tiene algun aplicativo que me recomienden para poder
realizar el cambio de la contraseña del administrador local de mis

estaciones

pero deseo realizarlo en forma masiva, sin necesidad de ir maquina por
maquina.

Muchas Gracias

creas una politica y ejecutas el script que te dejo abajo al iniciar la maquina (script de start up a nivel de maquina)...

El script donde lo pide la politica, le debes quitar el permiso de NTFS a everyone y a users y dejar a domain computers con permisos de lectura ejecucion y listado... ya que realmete el que lo ejecuta es la maquina al inicio. Y no queremos que los usuarios vean el password que colocaste en el script.

y listo cada vez que se inicie una maquina correra el script asi siempre sera el que tu quieras en el script, Y puedes cambiarlo cada determinado tiempo llevando una bitacora. Tambien te recomendaria que la cuenta administrador se renombre en la politica, para que todos tengan la misma cuenta, mas por estandarizacion. El script no demora nada.

De todos modos el scrip busca la cuenta de administrador original sin importar como se llame, por si no quieres estandarizar el nombre. Te sirve si estan las estaciones en ingles o en español.

Ojo el script solo cambia el password a la cuenta original del administrador local. No cambia la de un administrador de dominio.

Puedes ponerle al igual un password diferente a todos los members servers. De esta forma tambien tendras estandarizado a los servidores miembro.

Me imagino que tienes bien organizadas las OUs.

Pegue este script el notepad, y salvelo alli donde le dice la politica con extension .vbs sin las lineas

sNewPassword = "Password Que Usted Quiere Colocarle A Todas Las Estaciones, reemplace por el suyo"
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




­-
Rodolfo Parrado Gutiérrez
https://mvp.support.microsoft.com/p...9d07ff1244
Bogotá - Colombia
­-
MVP Windows Server Security
MCT, MCSE, MCSA, MCDST, MCP+I
­-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
­-
"David" wrote in message news:

Estimados amigos

Algunos de ustedes tiene algun aplicativo que me recomienden para poder
realizar el cambio de la contraseña del administrador local de mis estaciones
pero deseo realizarlo en forma masiva, sin necesidad de ir maquina por
maquina.

Muchas Gracias