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