Rubrik: System/Windows · Computer/Benutzer/Ländereinstellungen | VB-Versionen: VB2005, VB2008 | 26.08.10 |
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.743 |
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