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

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 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.