Active Directory FindAll SearchResutlsCollection Performance Issue

Question

Hi,
I am trying to get list of users from active directory with query as shown in below code snippet. From below code and after FindAll() statement, getting results (users collection) from active directory. As and when try results.count or any operation on results
object, taking 7 seconds first time. So every time when try to get users, taking more than 7 seconds. Could you please provide your suggestion to overcome the 7 seconds delay.
Thanks,
Janaiah
Try
Dim path As String = "LDAP://xxxx/CN=Users,DC=firm,DC=xxxx,DC=com"
Dim filter As String = "(&(objectCategory=person)(objectClass=user)(Description=test*)(Description=*SampleAcc))" '(!userAccountControl:1.2.840.113556.1.4.803:=2))"
Dim propertiesToLoad As String() = New String(0) {"name"}
'(&(objectClass=user)(Description=testaccount*)(Description=*TestAccount))
Using root As New DirectoryEntry(path, "domain\username", "password", AuthenticationTypes.Secure)
Using searcher As New DirectorySearcher(root, filter, propertiesToLoad)
Dim temp As String = DateTime.Now
Using results As SearchResultCollection = searcher.FindAll()
temp = temp + " - " + DateTime.Now
For Each result As SearchResult In results
temp = temp + " - " + DateTime.Now
Dim name As String = DirectCast(result.Properties("name")(0), String)
'ADUsersList.Items.Add(name)
Next
End Using
End Using
End Using
Catch
End Try

Answer 1

Hi Janaiah Putta,
I am moving your thread into the
Visual Basic Forum for dedicated support. Thanks for your understanding.
Best Regards,
Jack
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.