Alle Benutzerkonten einer Gruppe ermitteln Dieser Tipp zeigt, wie man alle Benutzerkonten ermitteln kann, die Mitglied einer bestimmten Gruppen sind.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.072
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 3 Bewertung insgesamt: mangelhaft Durchschnittliche Bewertung: 1.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe des "Active Directory Services" lassen sich schnell alle Benutzerkonten (Anwender) ermitteln, die Mitglied einer bestimmten Gruppen sind.

Fügen Sie Ihrem Projekt zunächst den Verweis System.DirectoryServices hinzu und importieren den Namespace wie folgt:

Imports System.DirectoryServices

Mit nachfolgendem Code werden bspw. alle Benutzerkonten (Anwender) ermittelt, die Mitglied der "Adminstratoren"-Gruppe sind, und in einer ListBox angezeigt:

' Query-String für AD-Abfrage
Dim sQuery As String = "WinNT://" & Environment.MachineName & ",computer"
Dim AD As New DirectoryEntry(sQuery)
 
' Adminstratoren-Gruppe
Dim oGroup As DirectoryEntry = AD.Children.Find("Administratoren", "group")
 
' alle Member der Gruppe durchlaufen und anzeigen
Dim oMembers As Object = oGroup.Invoke("members", Nothing)
For Each oMember As Object In oMembers
  ListBox1.Items.Add(oMember.Name)
Next