Hola compis,
     ¿Podría alguien indicarme los pasos a seguir para crear un usuario en
el directorio activo?.
      Hasta ahora solo he podido comprobar si el usuario existe, pero en
caso de no estar presente en el directorio necesitaría proceder a su
creación así como a la inserción de sus datos personales y cuenta de correo.
De la misma forma, necesitaría acceder para modificar clave de acceso y
datos personales de la cuenta.
      A continuación expongo el código que estoy utilizando:




    Imports System.DirectoryServices

        ...
    Private Function CompruebaUsuario() As Boolean
        Dim Dominio As String
        Dominio = "ImasDe.net"
        Dim EntraDirectorio As New DirectoryEntry("LDAP://" + Dominio)
        Dim BuscaDirectorio As New DirectorySearcher(EntraDirectorio)
        Dim BuscaUsuario As SearchResult
        BuscaDirectorio.Filter = ("(anr= " + txtUsuario.Text + ")")
        For Each BuscaUsuario In BuscaDirectorio.FindAll()
            msgScript("El usuario " + txtUsuario.Text + " existe, introduzca
otro nombre de usuario.")
            Return False
            Exit Function
        Next
        '*************************************
        '    Hasta aquí estupendo pero ...
        '*************************************
        '        EntraDirectorio.Children.Add(txtUsuario.Text, "User")
        '        EntraDirectorio.CommitChanges()
        '        EntraDirectorio.RefreshCache()
        '*************************************
        '    esto no consigo que funcione
        '*************************************
        Return True
    End Function




A ver si un alma caritativa está dispuesta a sacarme de este agujero.
Gracias anticipadas