Selecting members of a group in AD with .Net

Is the group you are looking for their default group?  If so, it won't return their default group.

Do you have access to Active directory to tell if this one returned user has a different default group as the others?

no It's not the default group.  I went in and looked at the Users in AD and all members of that group are the same.  I was looking at my code again and I'm thinking that maybe I need to add another array to loop through the users????

This post here makes me think maybe I need to convert from a search result to a directory entry.  It's in C# though so I'm having some trouble following it.

sorry... here's the post I was refereing to:
https://www.experts-exchange.com/questions/21382278/Getting-the-groups-a-user-belongs-to-from-Active-Directory.html?sfQueryTermInfo=1+activ+directori+from+get+group+inform 

Someone, Anyone ???  

Here are some functions that work for me:
Function GetAllGroups(ByVal strDomain) As Collection
        Dim Computer
        Dim Group
        Dim listOfGroups As String = ""
        Dim col As Collection = New Collection


        'Computer = GetObject("WinNT://" & strDomain)
        'Dim filter As System.Object() = {"Group"}
        'Computer.Filter = filter

        Dim users As DirectoryEntry = GetEntry("CN=Users," + GetDomain())
        Dim search As New DirectorySearcher(users)
        search.Filter = "(objectClass=group)"
        search.Sort.PropertyName = "cn"
        For Each sResultSet As SearchResult In search.FindAll()


            'For Each Group In Computer
            Select Case GetProperty(sResultSet, "CN")
                Case "Dial-In Users", "DnsUpdateProxy", "Domain Computers", "Domain Controllers", "Domain Guests", "Enterprise Admins", _
                    "Group Policy Creator Owners", "Schema Admins", "Account Operators", "Administrators", "Backup Operators", "Distributed COM Users", _
                    "Guests", "Incoming Forest Trust Builders", "Network Configuration Operators", _
                    "Performance Log Users", "Performance Monitor Users", "Pre-Windows 2000 Compatible Access", "Print Operators", _
                    "Remote Desktop Users", "Replicator", "Server Operators", "Terminal Server License Servers", "Users", _
                    "Windows Authorization Access Group", "Cert Publishers", "RAS and IAS Servers", _
                    "HelpServicesGroup", "TelnetClients", "DnsAdmins", "DHCP Users", "DHCP Administrators"

                    'Exclude groups that do not need to be seen"
                    'Do nothing
                Case Else
                    col.Add(GetProperty(sResultSet, "CN"))
            End Select
        Next
        Return col
    End Function



Function GetAllUsersInGroup(ByVal strGroupName As String, ByVal strDomain As String) As Collection
        Dim col As New Collection
        Dim newCol As New Collection
        Dim Group
        Dim User

        '''''''''''''''''''''''''''''''''''''''''
        Dim result As SearchResult
        Dim resultColl As SearchResultCollection
        Dim search As DirectorySearcher = New DirectorySearcher()
        search.Filter = String.Format("(cn={0})", strGroupName)
        search.PropertiesToLoad.Add("member")
        result = search.FindOne()
        resultColl = search.FindAll()

        Dim userNames As ArrayList = New ArrayList()
        Dim user1 As String
        If (Not result Is Nothing) Then

            For counter As Integer = 0 To result.Properties("member").Count - 1
                user1 = ParseNameFromFullADName(result.Properties("member")(counter).ToString())
                col.Add(user1, user1)
            Next
        End If
        '''''''''''''''''''''''''''''''''''''''''

        Group = GetObject("WinNT://" & strDomain & "/" & strGroupName & ",group")
        For Each User In Group.Members
            col.Add(User.Name)
        Next
        Dim dt As Data.DataTable = GetAllUsers()

        Dim dv As New Data.DataView(dt)
        dv.Sort = "EmpLogon"
        Dim row As Integer
        For i As Integer = 1 To col.Count
            Select Case col(i).ToString().Trim().ToUpper()
                Case "Group 1",  "Group2", etc..., _ 'I use this to exlude users I do not want to show up
                    'Do nothing
                Case Else
                    'Dim tempUser As New AdUser(col(i).ToString(), strDomain)
                    'SEarch the dt to find the user's name
                    row = dv.Find(col(i).ToString().Trim())
                    If row >= 0 Then
                        If Not newCol.Contains(dv(row)("FullName").ToString().Trim()) Then
                            newCol.Add(dv(row)("FullName").ToString().Trim(), dv(row)("FullName").ToString().Trim())
                        End If
                    Else
                        If Not newCol.Contains(col(i).ToString().Trim()) Then
                            newCol.Add(col(i).ToString().Trim(), col(i).ToString().Trim())
                        End If
                    End If

            End Select

        Next
        Return SortCollection(newCol, "Name", True)
    End Function

do you know why my exsisting code is only returning one entry?

ok great,  I got that to work.  FINALLY !!!  Now, one more question.  Can I get the user info like phone #, etc from that same query pointed at the groups or am I going to have to use the results returned (the user) to do another query and get all of their info?

Hope that made sense

You have to then use what is returned to get them individually.  That is why I call the GetAllUsers() method.  We only have 75 employees in our company, so this is feasible.  It may not be if you have 100K.

But, the member property only gives you the name.

ok, that's what it looked like to me but I wanted to make sure.  I can't thank you enough for the help.  This was killing me.