Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

User einer bestimmten Active Directory- Gruppe ermitteln
Autor: Dieterlem
Datum: 10.03.07 10:42
Hallo, ich möchte die Mitglieder einer Gruppe im Active Directory ermitteln, habe dabei aber leider kein Erfolg. Mit den Lokalen Gruppen des PC's funkioniert es. Ich arbeite mit folgendem Code:   Sub AD4() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Alle Benutzer einer bestimmten Gruppe auflisten ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim oGroup As Object Dim oMember As Object Dim sDomain As String Dim sGroup As String Dim i As Byte ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' lokaler PC sDomain = "." ' Beutzergruppe "TestGrp1" ############## sGroup = "TestGrp1" ' Gruppe der Administratoren für den lokalen Rechner Set oGroup = GetObject("WinNT://" & sDomain & "/" & sGroup & ",group") ' alle User in der Administratoren-Gruppe auflisten For Each oMember In oGroup.Members Debug.Print oMember.Name Next ErrHandler: ' Objekte zerstören Set oMember = Nothing Set oGroup = Nothing End Sub   Ich weis, daß ich die Domäne mitfolgendem Code ermitteln kann :   ' Pfad der gegenwärtigen Domäne (LDAP) einholen Set Root = GetObject("LDAP://rootDSE") strDomain = Root.Get("defaultNamingContext") Set Domain = GetObject("LDAP://" & strDomain)   Wie bekomme ich es hin, daß ich die Mitglieder der Gruppe auslesen kann? Gruß Dieterlem

User einer bestimmten Active Directory- Gruppe ermitteln

2.335

Dieterlem

10.03.07 10:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen