ASIGNAR UN MISMO PASSWORD A VARIOS USUARIOS EN UN DOMINIO

Foro referente al sistema operativo Windows Server 2003
miver
Usuario linuxero
Usuario linuxero
Mensajes: 4
Registrado: 30 Ene 2009, 19:31
Contactar:

ASIGNAR UN MISMO PASSWORD A VARIOS USUARIOS EN UN DOMINIO

Mensajepor miver » 30 Ene 2009, 20:01

Hola que tal a todos, el motivo de mi post, es para preguntarles como cambiar o asignar un password a un grupo de usuarios, asignandole uno igual para todos. He estado leyendo y busque que por medio de un script, pero no me quedo muy claro, podrian ayudarme con esto por favor. muchas gracias!

cybercontroler
Usuario linuxero
Usuario linuxero
Mensajes: 28
Registrado: 06 Mar 2009, 02:27
Ubicación: Venezuela
Contactar:

Re: ASIGNAR UN MISMO PASSWORD A VARIOS USUARIOS EN UN DOMINIO

Mensajepor cybercontroler » 06 Mar 2009, 04:38

me imagino q debe haber una forma mas profesional de hacerlo, pero una forma fácil q te puede servir es la siguiente:
puedes poner en el run del registro o en inicio de todos lo usuarios un batch o algo con el siguiente comando:

net user %USERNAME% ContraseñaQueQuieras

si no te permite por ser usuario restringido o algo, entúbalo con runas, pero cuidado pon políticas primero, si no quieres q todo el mundo vea la contraseña de administrador, puedes hacer una pequeña compilación con autoit y usas SANUR
de este modo en lo q los usuarios inicien sesión se les asignara la clave...

escaprix
Usuario topedesquiciao
Usuario topedesquiciao
Mensajes: 58
Registrado: 04 Abr 2008, 15:23
Ubicación: Argentina
Contactar:

Re: ASIGNAR UN MISMO PASSWORD A VARIOS USUARIOS EN UN DOMINIO

Mensajepor escaprix » 20 Mar 2009, 21:50

Te paso este Script


User.txt dentro de este estan todos los usuarios de AD que queres cambiar

Te abre un excel y coloca todos los datos, debes cambiar en donde dice LDAP tus datos de Active Directory, debes guardar el archivo como .VBS



' VB Script Document
'option explicit
Set objXL = WScript.CreateObject("Excel.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objXL.Visible = True
objXL.WorkBooks.Add()
objXL.Sheets("Hoja1").Select()
objXL.Sheets("Hoja1").Name = "Control Cambio de Pass"

objXL.Columns(1).ColumnWidth = 16.57
objXL.Columns(2).ColumnWidth = 42.86

objXL.Cells(1, 1).Value = "User"
objXL.Cells(1, 2).Value = "Cambio de pass"

objXL.Range("A1:I1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Font.Size = 12

fila=2

Set objFile = objFSO.OpenTextFile("C:\user.txt", 1)

Do Until objFile.AtEndOfStream
strCharacters = objFile.Readline
strUser = (strCharacters)
aUser = split(strUser, ";")

For Each user in aUser
Set objUser = GetObject("LDAP://cn="& user &",ou=admins,OU=Cuentas,DC=wcorp,DC=ar,DC=carrefour,DC=com")
objUser.SetPassword "Hiper13"
objXL.Cells(fila, 1).Value = user
prueba = objUser.PasswordLastChanged
objXL.Cells(fila, 2).Value = "Password last changed: " & prueba
fila = fila + 1
objXL.Cells(fila, 1).Select
Next
Loop





SALUDOS
Escaprix


Volver a “Windows Server 2003”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados