1

我有一个绑定到数据表的组合框，我用活动目录中的用户名填充该数据表。此代码大约需要一分钟才能完成。我错过了更好的方法吗？

Function users() As DataTable
    Dim dt As DataTable
    Dim dr As DataRow
    Dim idCoulumn As DataColumn
    Dim nameCoulumn As DataColumn

    Dim dirEntry As New System.DirectoryServices.DirectoryEntry("LDAP://CN=Users,DC=myDomain,DC=local")

    Dim oSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
    Dim oResults As SearchResultCollection

    oSearcher.PropertiesToLoad.Add("samAccountName")
    oSearcher.PropertiesToLoad.Add("givenname")
    oSearcher.PropertiesToLoad.Add("sn")
    oSearcher.PropertiesToLoad.Add("cn")
    oSearcher.Filter = "objectCategory=person"
    oResults = oSearcher.FindAll

    dt = New DataTable()
    idCoulumn = New DataColumn("ID", Type.GetType("System.String"))
    nameCoulumn = New DataColumn("Name", Type.GetType("System.String"))

    dt.Columns.Add(idCoulumn)
    dt.Columns.Add(nameCoulumn)

    For Each oResult In oResults
        With oResult.GetDirectoryEntry()
            If .Properties("cn").Value <> "" AndAlso .Properties("samAccountName").Value <> "" AndAlso .Properties("sn").Value <> "" Then
                dr = dt.NewRow()
                dr("ID") = .Properties("samAccountName").Value
                dr("Name") = String.Format("{0},{1} : {2}", .Properties("sn").Value, .Properties("givenname").Value, .Properties("samAccountName").Value)
                dt.Rows.Add(dr)
            End If
        End With
    Next

    dt.DefaultView.Sort = "Name"

    Return dt

End Function
4

2 回答 2

2

不要包含 sn 和 cn 属性，请尝试下面的过滤器并删除您的 if。

(&(objectCategory=user)(objectClass=user)(samAccountName=*))

这将查询具有现有 samAccount 名称的所有用户。这应该消除对 if 语句的需要并检查 SN 或 CN。您也可以考虑绑定到比 Datatable 更轻的东西。

除此之外，您的代码看起来很紧凑。你可能只需要把它放在它自己的线程中。

于 2012-11-12T18:16:10.023 回答
1

@Spevy 通过他提出的答案帮助我找到了这个解决方案。

我将我的目录条目更改为：

Dim dirEntry As New System.DirectoryServices.DirectoryEntry("LDAP://myDomain")

我设置了我的搜索过滤器：

oSearcher.Filter = "(&(objectCategory=user)(objectClass=user))"

并将我的 if 语句更改为：

If .Properties("samAccountName").Value <> "" AndAlso .Properties("sn").Value <> "" Then

我不确定添加这些代码行的真正作用，但无论它们是否存在，我都会得到相同的结果，所以我删除了它们：

oSearcher.PropertiesToLoad.Add("samAccountName")
oSearcher.PropertiesToLoad.Add("givenname")
oSearcher.PropertiesToLoad.Add("sn")
oSearcher.PropertiesToLoad.Add("cn")
于 2012-11-12T19:17:28.677 回答