ASP.NET Get Members from Active Directory Group

could this sample code help:
http://msdn.microsoft.com/en-us/library/ms180885(VS.80).aspx

in short:
* you don't tell the directorysearch where to search from
* you asked findOne instead of findall

error:
        For i = 0 To result.Properties("members").Count
must be:

        For i = 0 To result.Properties("members").Count -1

Thanks for the comment.  I will give it a try when I get in to work on Monday.

the main problem other than not running the search. Is the property needs to be changed to "member" as members is not a property. Also you can use findone is you wish, so long as you don't have similiar group names. here is a quick example.

Note: the member property doesn't contain SAMAccounName(s) like (domain\username), but instead contains the user account's distinguished name (cn=username,dc=domain,dc=com) ect

Dim de As New DirectoryServices.DirectoryEntry("LDAP://domain.youcompany.com")'<---make sure to change to your ad connstring
        de.Username = SvcAcct '<--- domain accountname
        de.Password = SvcPass '<--- domain account password
        de.AuthenticationType = DirectoryServices.AuthenticationTypes.Secure
        Dim deSearch As New DirectoryServices.DirectorySearcher(de)
        Dim groupname As String = "Health Department" '<---group you wish to load
        deSearch.Filter = "(&(objectClass=group) (cn=" + groupname + "))"
        Dim results As DirectoryServices.SearchResultCollection = deSearch.FindAll()
        Dim result As DirectoryServices.SearchResult
        If (results.Count > 0) Then
            Dim userNames As New ArrayList
            For Each result In results
                For Each member As String In result.Properties("member")
                    userNames.add(member)
                Next
            Next
        End If
    End Sub

Select allOpen in new window

   Private Sub GetADGroups()
        Dim de As New DirectoryServices.DirectoryEntry("LDAP://civicnet.com")        
        de.Username = "MyServiceAccount"
        de.Password = "MyServicePassword"
        de.AuthenticationType = DirectoryServices.AuthenticationTypes.Secure
        Dim deSearch As New DirectoryServices.DirectorySearcher(de)
        Dim groupname As String = "Health Department" '<---group you wish to load
        deSearch.Filter = "(&(objectClass=group) (cn=" + groupname + "))"
        Dim results As DirectoryServices.SearchResultCollection = deSearch.FindAll()
        Dim result As DirectoryServices.SearchResult
        If (results.Count > 0) Then
            Dim userNames As New ArrayList
            For Each result In results
                For Each member As String In result.Properties("member")
                    Response.Write(member)
                    userNames.Add(member)
                Next
            Next
        End If
    End Sub

I think it is getting close, but there are no items displayed when I call this.  I have double checked the groupname, and have even tried other groups with no luck.  Any ideas?

It looks like it is the filter that is causing the problems.  If I comment out that line of code, I can display all members in the AD.  And if I add an if/then looking for member.Contains("Health Department") it displays all the members of that group.

I also just noticed that Health Department is an organizational unit, not a common name, so that is probably part of the reason the filter is not working correctly.

I'm getting confused as to what you are trying to accomplish. Aren't you trying to get all members of that group? Also is health department just an ou or is it also a group?

I am wanting all members of health department. I think I worded my question wrong above because I didn't realize until this morning that it is an ou rather than a group.  

CN=D-Internet_FTP,OU=Users,OU=Health Department,DC=MYDOMAIN,DC=com

And is it possible to get only the cn for each member of the ou?

Thanks for your help.  I have got it working now.