En determinadas situaciones resulta de gran utilidad poder saber mas acerca de nuestros usuarios preguntando al LDAP de nuestro dominio.
Espero que os sea de utilidad.
‘Saber de los Usuarios de nuestro LDAPImports System.DirectoryServices ‘Espacio de nombres
Public Class ServiciosDeDirectorio
Private listBox1 As New ListBox() ‘Constructor del ListBox
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Nuestros apuntes en el direccio
Dim EntradasEnElDirectorio As New DirectoryEntry(«LDAP://miServidor»)
‘Nuestro buscador
Dim BusquedaEnElDirectorio As New DirectorySearcher(EntradasEnElDirectorio)
‘Filtro de busqueda, en nuestro caso usuarios
BusquedaEnElDirectorio.Filter = «(ObjectClass=user)»
‘Nuestra entrada de usuario en cuestion
Dim EntradaEnDirectorio As DirectoryEntry
‘Incorporar el listbox a nuestro form
Me.Controls.Add(listBox1)
Me.listBox1.Dock = DockStyle.Fill ‘Ocupar toda el area del form
‘Para cada entrada en el directorio
For Each Busqueda As SearchResult In BusquedaEnElDirectorio.FindAll()
‘Obtenerla
EntradaEnDirectorio = Busqueda.GetDirectoryEntry
‘Añadir la informacion (en nuestro caso nombre/descripcion)
Me.listBox1.Items.AddRange(New Object() { _
EntradaEnDirectorio.Properties(«name»).Value, _
Space(12) + «->» + _
EntradaEnDirectorio.Properties(«description»).Value _
})
Next
End Sub End Class
Como puedo saber la informacion detallada de un usuario en el AD y tambien saber los diferentes grupos de usuarios.En la informacion detallada ya tengo el mail,name,description,grupo y si existe y quiero saber la extension telefonica,direccion IP,Nombre del equipo y otras cosas.
les agradesco por la atencion prestada y espero su pronta ayuda.
Hola Abrahamzick,
Puedes encontrar todas las propiedades que esten disponibles en tu LDAP viendo el ejemplo en :
http://msmvps.com/blogs/peplluis/archive/2008/02/27/191-como-puedo-saber-las-propiedades-disponibles-en-mi-ldap.aspx
Saludos,