有没有一种快速的方法可以将所有用户从Active Directory中拉出？

Question

I'm trying to pull the username of every user available through active directory. Here is the code my colleague first tried to use, but this method is burning all of the memory out and throwing out of memory exceptions. Is there a quick alternative?

Dim userList As ArrayList = New ArrayList
Dim sPath As String = "LDAP://test.ca/OU=foo,OU=bar,OU=foobar,DC=test,DC=ca"
Dim myDirectory As New DirectoryEntry(sPath, Nothing, Nothing, AuthenticationTypes.Secure)
Dim mySearcher As New DirectorySearcher(myDirectory)
mySearcher.Filter = ("(objectClass=user)")

For i As Integer = 0 To mySearcher.FindAll().Count - 1
    userList.Add(mySearcher.FindAll.Item(i).Properties("DisplayName").Item(0))
Next

Answer 1

The call to FindAll goes back to the LDAP server every time. This means that you're executing it (and hammering the server) every time you go round the loop. On top of that, if the data changes between calls, you'll probably see some really odd (and hard to diagnose) bugs.

I don't really do VB.NET, but something like this should work:

Dim searchResults = mySearcher.FindAll()
For Each item In searchResults
    userList.Add(item.Properties("DisplayName").Item(0))
Next

Answer 2

如果可以移至.NET 3.5，请尝试LINQ to Active Directory 。