使用 DirectoryServices.Protocols 进行 LDAP 搜索速度慢

我们使用 System.DirectoryServices.DirectorySearcher 进行 sAMAccountName 查找。这工作得很好，只是当查询某个我们怀疑很大的 AD 时，搜索经常会超时。经过一些研究后，我发现在查询大型 AD 时使用 System.DirectoryServices.Protocols 进行搜索可以更快。我正在尝试使用协议重新创建我们所拥有的内容，看看这是否会对超时产生任何影响。这是目前的情况：

Dim Entry As New DirectoryEntry(anLDAPURL, aDomainUserName, aPassword)

Dim obj As Object = Entry.NativeObject 'Force Authentication on Active Directory Server

Dim Filter As String = String.Format("(sAMAccountName={0})", aDomainUserName)

Dim Search As New DirectorySearcher(Entry, Filter)
Search.PropertiesToLoad.Add(SID)
Search.PropertiesToLoad.Add(ACCOUNTISLOCKEDOUT)
Search.PropertiesToLoad.Add(ACCOUNTISDISABLED)

Dim Results As SearchResult = Search.FindOne()

这工作正常并且非常快（除了上面提到的超时情况）。这就是我试图将其更改为的内容，以便我可以对其进行测试：

Dim credentials As New System.Net.NetworkCredential(aDomainUserName, aPassword)
Dim directoryIdentifier As New System.DirectoryServices.Protocols.LdapDirectoryIdentifier("ldap-ad.example.org")

Using connection As New System.DirectoryServices.Protocols.LdapConnection(directoryIdentifier, credentials, Protocols.AuthType.Basic)
    Dim attributes() As String = {SID, ACCOUNTISLOCKEDOUT, ACCOUNTISDISABLED}

    Dim search As New System.DirectoryServices.Protocols.SearchRequest(
    "dc=example,dc=org",
    String.Format("(sAMAccountName={0})", aDomainUserName),
    Protocols.SearchScope.Subtree,
    attributes)

    Dim response As System.DirectoryServices.Protocols.SearchResponse = DirectCast(connection.SendRequest(search), System.DirectoryServices.Protocols.SearchResponse)
End Using

上面的代码可以工作，因为它返回一个结果，但比原始代码慢得多。我怀疑我尝试查询的方式效率低下，但我不太确定应该如何设置它以使其更快。

我遇到了同样的问题，最终是由于返回结果中的“推荐追逐”System.DirectoryServices.Protocols.LdapConnection.SendRequest方法。这是由于“假”域名“corp.org”没有任何 DNS 条目（因此SendRequest浪费了大量时间对结果进行 DNS 查找）。要禁用推荐追踪：

var conn = new LdapConnection(...);
conn.SessionOptions.ReferralChasing = ReferralChasingOptions.None;