从 AD 获取用户详细信息很慢

Question

我使用以下代码来获取有关特定部门的员工的大量信息，并从 AD 返回一个列表...

虽然它有效，但似乎很慢，是否有更有效的方法从 AD 获取各种用户详细信息？

public static List<Employee> GetEmployeeListForDepartment(string departpment)
        {
            using (HostingEnvironment.Impersonate())
            {

                PrincipalContext ctx = new PrincipalContext(ContextType.Domain, domain);
                GroupPrincipal gp = GroupPrincipal.FindByIdentity(ctx, departpment);
                PrincipalSearchResult<Principal> members = gp.GetMembers();
                List<Employee> employees = new List<Employee>();
                foreach (var member in members)
                {
                    var emp = CreateEmployee(member);
                    employees.Add(emp);
                }
                return employees.OrderBy(x => x.FirstName).ToList();
            }
        }

        private static Employee CreateEmployee(Principal member)
        {
            if (member != null)
            {
                DirectoryEntry de = (member.GetUnderlyingObject() as DirectoryEntry);
                if (de != null)
                {

                    string mobile = de.Properties.Contains("mobile") ? de.Properties["mobile"][0].ToString() : "";
                    string title = de.Properties.Contains("description") ? de.Properties["description"][0].ToString() : "";

//ETC ETC...
                    return new Employee { etc.. };

                }

            }
            return new Employee();
        }

Answer 1

你的问题是你正在使用 System.DirectoryServices.AccountManagement...虽然我讨厌这么说，但可悲的是事实。 AccountManagement 在底层的工作方式是运行单独的 LDAP 查询来单独检索每个项目。因此，当您遍历成员时，它会通过 LDAP 为每个成员进行单独的回调。您想要做的是使用 System.DirectoryServices.DirectorySearcher 运行 LDAP 查询。

我的假设是，部门是一个团体，具体取决于您如何使用它。我将这样做。 （我的代码是在 VB.Net 中...抱歉）。确保获取您的组的完全限定 DN，或者提前查找并将其插入查询中。

Dim results = LDAPQuery("(memberOf=CN=Fully,OU=Qualified,DC=Group,DC=Distinguished,DC=Name)", New String() {"mobile", "description"})

Dim emps = (from c as System.DirectoryServices.SearchResult in results _
             Select New Employee() {.Name = c.Properties("description"), .Mobile = c.Properties("mobile")}).ToList()

Public Function LDAPQuery(ByVal query As String, ByVal attributes As String()) As SearchResultCollection
    'create directory searcher from CurrentADContext (no special security available)
    Dim ds As New DirectorySearcher(System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain().GetDirectoryEntry())
    ds.PageSize = 1000

    'set filter string
    ds.Filter = query

    'specify properties to retrieve
    ds.PropertiesToLoad.AddRange(attributes)

    'get results
    Dim results As SearchResultCollection = ds.FindAll()

    Return results
End Function

Answer 2

您应该能够直接使用 Active Directory API。

其中大部分都可以在“System.DirectoryServices”下找到，

我没有任何代码可以完成您所需要的操作，但大约一年前我的博客上确实有一篇文章，展示了如何创建本地用户帐户在 AD 中，所有这些都根据需要使用相同的程序集来获取用户信息。

http://shawtyds.wordpress。 com/2010/12/08/a-little-bit-of-ldap-here-there/

注意：AD 本质上很慢，所以你很有可能如果您有一个大目录，可能无法获得更快的速度。