Programación General > VBA

 Vba-->crea Usuarios Y Passwrod En Active Directory

(1/1)

sete15:
Hola Chic@s!

Soy nuevo aquí, y tengo un problemilla que espero que me ayudeis a resolver. El caso es que debo realizar un trabajo en VBA (excel).

Éste consiste en que, a partir de unos nombres de usuarios insertados en un libro de excel, creemos un formulario y, mediante un botón,  se cree un password para cada usuario y que estos usuarios se creen dentro de un dominio en Windows 2003 Server con ese password. Esto es lo que me falta porque yo, ya he creado los nombres de usuario y los usuarios se me han creado dentro del Active Directory. Tan solo me quedaría poder crear un password al azar (de 8 digitos) para cada usuario. Si queréis puedo poner el código de como cree los usuarios y los inserte en el Active Directory.

                                                                                        Muchas Gracias a todos!!!!
                                                                                                                   Sete15

Shiquilla:
Función que le pasas una longitud y te devuelve un string (en este caso le pasarías longitud 8).


--- Código: Text ---Public Function mfbCadenaAleatoria(lnLongitud As Long) As StringDim lnNumSimbolos As LongDim laSimbolos    laSimbolos = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _    "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _    "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _    "U", "V", "W", "X", "Y", "Z", _    "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _    "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _    "u", "v", "w", "x", "y", "z")        lnNumSimbolos = UBound(laSimbolos) + 1    Randomize    Do While Len(mfbCadenaAleatoria) < lnLongitud        mfbCadenaAleatoria = mfbCadenaAleatoria & laSimbolos(Int(lnNumSimbolos * Rnd()))    Loop    End Function 
PD: Podrías poner el código para crear los usuarios? Gracias.

Saludos

sete15:
Muchas gracias 'Shiquilla', es que ando un poco perdido con esto y es un proyecto para clase que tengo que entregar la próxima semana. Gracias de nuevo, voy a probar tu código  :D


--- Código: Text --- Dim usu, passwd As String Rem Crear usuarios para 2003 ServerTextBox4 = Left(Me.TextBox1.Value, 1) & Left(Me.TextBox2.Value, 3) & Left(Me.TextBox3.Value, 3) Rem aki me tengo que colocar en la primera celda donde hay nombres (en la 9) y que genere losRem usuarios hasta que vea que hay una nulaRange("A10").SelectActiveCell.Offset(0, 3).SelectDo While ActiveCell <> Empty If ActiveCell <> Empty Thenusu = ActiveCellActiveCell.Offset(0, 1).Selectpasswd = ActiveCellActiveCell.Offset(0, 1).Select  Rem Crear el usuario en Usuarios y grupos del Active DirectoryRem En mi caso, el nombre de la unidad organizativa es: AULA109Rem  "  "   " , el nombre del dominio es: "informatica.iespuertodelacruz", pues bienRem como esta separado por punto, cada parte del nombre del dominio se pondrá Rem dentro de "dc"Rem No me explico bien pero aquí debajo tenéis el ejemplo en cuestón: Set objOU = GetObject("LDAP://ou=AULA109,dc=informatica,dc=iespuertodelacruz")Set objUser = objOU.Create("User", "cn=" & usu)objUser.Put "sAMAccountName", usuobjUser.SetInfo  End IfActiveCell.Offset(1, -2).Select Loop End Sub  
Gracias!!!

Navegación

[0] Índice de Mensajes