Link to home
Avatar of Tom Powers
Tom Powers

asked on

List AD User's group memberships in a listbox in Vb.net 2017

List AD User's group memberships in a listbox in Vb.net 2017.
Public Sub GroupprUser()
        Dim GroupDE As New DirectoryEntry("LDAP://CN=" & txtADBox.Text & ",OU=NAZ,OU=User Accounts,DC=one,DC=xxx,DC=xxx,DC=org")



        Dim Members As Object = GroupDE.Invoke("Members", Nothing) '<<< Get members

        For Each Member As Object In CType(Members, IEnumerable)  '<<< loop through members

            Dim CurrentMember As New DirectoryEntry(txtADBox.Text) '<<< Get directoryentry for user

            MessageBox.Show(CurrentMember.Name.Remove(0, 3))  '<<< Show each user's name in a messagebox
        Next
[embed=file 1266291]
Please help EE Thanks Guys

    End Sub

Open in new window

group-error.png
ASKER CERTIFIED SOLUTION
Avatar of Scott McDaniel (EE MVE )
Scott McDaniel (EE MVE )
Flag of United States of America image

Blurred text
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
Avatar of Tom Powers
Tom Powers

ASKER

Thanks for your help Finally back after being sick.