我在弄清楚这一点时遇到了一些麻烦,这就是我想要做的。我正在尝试填充一个列表框,其中“名称”作为显示的文本,“cn”作为 Active Directory 中特定组的值。我的代码在下面,它没有抛出任何错误,只是没有用任何东西填充列表框。我的猜测是我没有正确添加每个结果,但我很难过。
Dim search As DirectorySearcher = New DirectorySearcher(entry)
search.PropertiesToLoad.Add("cn")
search.PropertiesToLoad.Add("name")
search.PropertiesToLoad.Add("memberOf")
search.Filter = "(memberOf=SAO Computer Grp)"
Dim result As SearchResultCollection = search.FindAll()
Dim ct As Integer = result.Count
For i = 0 To ct
lstEmail.DataTextField = result.PropertiesLoaded("name")
lstEmail.DataValueField = result.PropertiesLoaded("cn")
lstEmail.DataSource = result.Item(i)
lstEmail.DataBind()
Next