kleines VB Script in Delphi - MemberOf Domängruppe

[Piro]

Abend,

sitze nun schon ein Weile vor meinem Laptop und suche nach einer Lösung. Folgend Code habe ich in VBS:

Code:

On Error Resume Next
 
Set objGroup = GetObject _
  ("LDAP://cn=<Gruppe>,ou=<Organisationseinheit>,dc=...,dc=...")
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member")
 
WScript.Echo "Members:"
For Each strMember in arrMemberOf
    WScript.echo strMember
Next

Ich weiß ehrlich gesagt nicht wie ich ihn in Delphi umsetzen soll. Das Ergebnis soll sein, dass ich die Mitglieder einer Domänengruppe erhalte. Eventuell gehts auch anders.

Für Anregungen oder Lösungsvorschläge wäre ich dankbar.

Gruß

[Luckie]

Suchst du vielleicht das:

Zitat:

NetUserGetGroups
The NetUserGetGroups function retrieves a list of global groups to which a specified user belongs.

[mkinzler]

http://www.agnisoft.com/white_papers..._directory.asp

[Piro]

@Luckie: Soetwas in der Art. Bloß ich versteh nicht wirklich was davon bzw. wie man es in Delphi benutzt.
Gibt es gute Codeabschnitte oder sogar ein Tutorial?
Funktioniert die Abfrage auch mit einem Domänkontroller?

@mkinzler: Danke, das habe ich mir schon mal angeschaut. Hab es leider nicht zum Laufen bekommen.