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()

