Estoy intentado recuperar el listado de usuarios y correos de un grupo de usuarios del directorio activo, pero la tabla que devuelve siempre me aparece en blanco... alguna idea??
Código:
Dim de As DirectoryServices.DirectoryEntry
Dim Child As DirectoryServices.DirectoryEntry
de = New DirectoryServices.DirectoryEntry("WinNT://" + authdomain)
de.Children.SchemaFilter.Add("user")
For Each Child In de.Children
listContacts.Items.Add(New ListItem(Child.Name, Child.Properties("mail").Value))
Next
de.Close()
Child.Close()
de.Dispose()
Child.Dispose()