Chidi Okeh Chidi Okeh - 1 month ago 6
Vb.net Question

How do I get the users that belong to a group in Active Directory?

I have a dropdownlist that I am trying to fill with users that belong to a certain group in Active Directory.

The group name is OverRiders and 8 people are members of this group. More members could be added.

I have the following dropdown but I run the code, the dropdown is blank.

What am I doing wrong?

Please see code:

Private Sub FillDropdown()
Dim oroot As DirectoryEntry = New DirectoryEntry("LDAP://CN=OverRiders,OU=Departments,DC=domain,DC=com")
Dim osearcher As DirectorySearcher = New DirectorySearcher(oroot)
Dim oresult As SearchResultCollection
Dim result As SearchResult
Dim list As New List(Of String)

osearcher.Filter = "(&(objectCategory=group)(cn={0}))"
' search filter; only display emp with firstname / lastname pair
osearcher.PropertiesToLoad.Add("name") ' member
oresult = osearcher.FindAll()


For Each result In oresult
If Not result.GetDirectoryEntry.Properties("name").Value Is Nothing Then
list.Add(result.GetDirectoryEntry.Properties("name").Value.ToString())
Call list.Sort()
End If
Next
emplist.DataSource = list
emplist.DataBind()

End Sub


I have been able to confirm that the group does exist and the group name is valid.
Thanks a lot in advance

Answer

Changed:

Dim oroot As DirectoryEntry = New DirectoryEntry("LDAP://CN=OverRiders,OU=Departments,DC=domain,DC=com")

to

Dim oroot As DirectoryEntry = New DirectoryEntry("LDAP://DC=domain,DC=com")

and this:

osearcher.Filter = "(&(objectCategory=group)(cn={0}))"

to this:

osearcher.Filter = "(&(objectCategory=user)(memberOf=CN=overRiders,OU=Departments,DC=domain,DC=com)‌​)"

Everything else remain unchanged.

Hope it helps someone else.

Comments