Autor Tema: Vba-->crea Usuarios Y Passwrod En Active Directory (Leído 1826 veces)

sete15 · « **en:** Miércoles 7 de Diciembre de 2005, 11:36 »

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 String
Dim lnNumSimbolos As Long
Dim laSimbolos
    laSimbolos = Array(&#34;0&#34;, &#34;1&#34;, &#34;2&#34;, &#34;3&#34;, &#34;4&#34;, &#34;5&#34;, &#34;6&#34;, &#34;7&#34;, &#34;8&#34;, &#34;9&#34;, _
    &#34;A&#34;, &#34;B&#34;, &#34;C&#34;, &#34;D&#34;, &#34;E&#34;, &#34;F&#34;, &#34;G&#34;, &#34;H&#34;, &#34;I&#34;, &#34;J&#34;, _
    &#34;K&#34;, &#34;L&#34;, &#34;M&#34;, &#34;N&#34;, &#34;O&#34;, &#34;P&#34;, &#34;Q&#34;, &#34;R&#34;, &#34;S&#34;, &#34;T&#34;, _
    &#34;U&#34;, &#34;V&#34;, &#34;W&#34;, &#34;X&#34;, &#34;Y&#34;, &#34;Z&#34;, _
    &#34;a&#34;, &#34;b&#34;, &#34;c&#34;, &#34;d&#34;, &#34;e&#34;, &#34;f&#34;, &#34;g&#34;, &#34;h&#34;, &#34;i&#34;, &#34;j&#34;, _
    &#34;k&#34;, &#34;l&#34;, &#34;m&#34;, &#34;n&#34;, &#34;o&#34;, &#34;p&#34;, &#34;q&#34;, &#34;r&#34;, &#34;s&#34;, &#34;t&#34;, _
    &#34;u&#34;, &#34;v&#34;, &#34;w&#34;, &#34;x&#34;, &#34;y&#34;, &#34;z&#34;)
    
    lnNumSimbolos = UBound(laSimbolos) + 1
    Randomize
    Do While Len(mfbCadenaAleatoria) &#60; 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

Código: Text

 
Dim usu, passwd As String
 
Rem Crear usuarios para 2003 Server
TextBox4 = 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 los
Rem usuarios hasta que vea que hay una nula
Range(&#34;A10&#34;).Select
ActiveCell.Offset(0, 3).Select
Do While ActiveCell &#60;&#62; Empty
 
If ActiveCell &#60;&#62; Empty Then
usu = ActiveCell
ActiveCell.Offset(0, 1).Select
passwd = ActiveCell
ActiveCell.Offset(0, 1).Select
 
 
Rem Crear el usuario en Usuarios y grupos del Active Directory
Rem En mi caso, el nombre de la unidad organizativa es: AULA109
Rem  &#34;  &#34;   &#34; , el nombre del dominio es: &#34;informatica.iespuertodelacruz&#34;, pues bien
Rem como esta separado por punto, cada parte del nombre del dominio se pondrá Rem dentro de &#34;dc&#34;
Rem No me explico bien pero aquí debajo tenéis el ejemplo en cuestón:
 
Set objOU = GetObject(&#34;LDAP://ou=AULA109,dc=informatica,dc=iespuertodelacruz&#34;)
Set objUser = objOU.Create(&#34;User&#34;, &#34;cn=&#34; & usu)
objUser.Put &#34;sAMAccountName&#34;, usu
objUser.SetInfo
 
 
End If
ActiveCell.Offset(1, -2).Select
 
Loop
 
End Sub
 
 

Gracias!!!

SoloCodigo

Autor Tema: Vba-->crea Usuarios Y Passwrod En Active Directory (Leído 1826 veces)

sete15

Vba-->crea Usuarios Y Passwrod En Active Directory

Shiquilla

Re: Vba-->crea Usuarios Y Passwrod En Active Directory

sete15

Re: Vba-->crea Usuarios Y Passwrod En Active Directory