
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
group-error.png
ASKER CERTIFIED SOLUTION
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.
ASKER