Dim EntradasEnElDirectorio As New DirectoryEntry(«LDAP://mi.servidor.com»)
Dim BusquedaEnElDirectorio As New DirectorySearcher(EntradasEnElDirectorio)
BusquedaEnElDirectorio.Filter = «(ObjectClass=user)»
Dim EntradaEnDirectorio As DirectoryEntry
For Each Busqueda As SearchResult In BusquedaEnElDirectorio.FindAll()
EntradaEnDirectorio = Busqueda.GetDirectoryEntry
For Each propiedad As String In EntradaEnDirectorio.Properties.PropertyNames
Me.ListBox1.Items.Add(propiedad)
Next
Next
Saludos,
Pep Lluis
Gracias Pep, las pruebo ahora mismo [:D].
Un Abrazo
Hola Pep
A ver si me puedes ayudar un poco. vi este codigo y este http://msmvps.com/blogs/peplluis/archive/2008/02/06/saber-de-nuestros-usuarios-en-ldap-rerellando-un-gridview-desde-una-consulta.aspx
y combine una pequeña aplicacion tratando de extraer solo los usuarios de mi AD pero con el codigo para que me muetre solo la propiedad «name» me trae los usuarios y las computadoras supongo que me falta filtrar algo.
Realmente necesito obtener el username de los usuarios AD,
Gracias por tu ayuda.
PD el ejemplo de la otra pagina no me funciona con el entrada=from usuarios etc……..
Hola Alfonso!
Bien supongo que estas utiliando VB9, lo digo para el comentario sobre ‘entrada=from…’. La idea es que si el directoryEntry no existe, este devolvera un error similar a «el servidor no es funcional»…
En tanto a la pregunta sobre el nombre me trae los usuarios y las computadoras efectivamente tienes que filtrarlo utilizando la propiedad ‘SchemaClassName=»user»‘…
Saludos,
Hola, he estado viendo estos articulos y no he podido encontrar como hacer la autenticación de los usuarios a través del Active Directory.
Alguien puede ayudarme? De antemano muchas gracias.