Foro de elhacker.net

Hola

Necesito ejecutar dsadd user para crear un nuevo usuario dentro del active directory. Los usuarios los tengo en una tabla así que la tengo que recorrer entera y por cada registro crear un usuario con la información de este registro.

Sería algo así:

dsadd user "cn=<nombre>, ou=clientes, dc=Empresa, dc=es" -samid >nombre> -pws <password> -tel <teléfono>

Todo lo que está entre <> serían los campos del registro

Existe alguna manera de meter el comando en una variable conctatenando la información y ejecutarlo como si estuviese en consola de comando?

Esto te debería ayudar,
http://www.c-sharpcorner.com/UploadFile/kb_sathya/DotNETActiveDirectory04172007013054AM/DotNETActiveDirectory.aspx (http://www.c-sharpcorner.com/UploadFile/kb_sathya/DotNETActiveDirectory04172007013054AM/DotNETActiveDirectory.aspx)

Un saludo

Gracias, luego lo leo detenidamente e intento que funcione. Me estoy empezando a estresar con el vb.

D4N93R, me podrías ayudar con el tema? Entre que está en ingles y el código está en C, no consigo hacerlo en vb.

Pues tomatelo con calma que VB no es lo mas dificil que verás jeje

Saludos

Me he tirado mucho tiempo programando pero en Power Builder y Oracle. Ahora me toca hacerlo en VB y Sqlserver y la verdad que se diferencias bastante.

Tengo el siguiente código para introducir datos en el directorio activo. Lo que quiero hacer es leer los clientes de la base de datos y crear un usuario por cada uno de ellos. Me vale con nombre y telefono.

  Dim ls_nombre, ls_telefono
 
        Dim DE As DirectoryEntry = New DirectoryEntry("LDAP://192.168.1.1/ou=Clientes,dc=dominio,dc=es")
 
        For li_contador = 0 To DataGridView1.RowCount - 1
 
            ls_nombre = DataGridView1(3, li_contador).Value
            ls_telefono = DataGridView1(4, li_contador).Value
 
            If String.IsNullOrEmpty(ls_nombre) Then Continue For
 
            Try
               Dim NewUser As DirectoryEntry = DE.Children.Add("CN=" + ls_nombre, "user")
                NewUser.Properties("sAMAccountName").Value = ls_nombre
                NewUser.Properties("sn").Add(ls_nombre)
                NewUser.Properties("telephoneNumber").Add(ls_telefono)
                NewUser.CommitChanges()
                NewUser.Properties("userAccountControl").Value = &H220 'userACFlags &H220 o &H200 Xor &H2
                NewUser.Properties("PwdLastSet").Value = 0
                NewUser.CommitChanges()
                DataGridView1(2, li_contador).Value = "OK"
                DataGridView1.Refresh()
 
            Catch ex As Exception
                DataGridView1(2, li_contador).Value = ex.Message
            End Try
        Next
 

Basicamente tengo una datagridview cargada con tres campos. Nombre y telefono que son de la base de datos y otro campo donde meto la excepción o un OK si todo ha ido bien.
Mi duda son algunas excepciones que me saltan:
Uno de los dispositivos conetados al sistema no funcionan.
Se ha especificado una sintaxi DN no válida.
Que sifnifican estas dos excepciones?

Un saludo.