Active Directory abfragen

[Codewalker]

Hallo zusammen.

Ich suche nach 2 Funktionen um Daten aus einem Active Directory zu beziehen. Leider ist meine Suche nicht so erfolgreich gewesen, zwar gibt es einige wenige Quellen zu diesem Thema, aber ich habe nicht wirklich das richtige gefunden.

Ich suche folgende Funktionen:
1. Ich übergebe einen Domänennamen & Benutzernamen und möchte eine Liste aller Gruppen in der dieser User Mitglied ist.
2. Ich übergeben einen Rechnernamen und möchte alle Domänen, in der dieser Rechner eingetragen ist.

Hat jemand Ideen/Source dazu?

Danke und viele Grüße

Codewalker

[nahpets]

Schau mal unter http://www.agnisoft.com/white_papers..._directory.asp.
Eventuell hilft Dir das weiter.

Stephan

[Codewalker]

Sieht sehr gut aus. Leider ist es mehr allgemein gehalten. Ich werde damit mal ein wenig spielen, auch wenn ich noch nicht weiß, wie ich an Gruppen und Computer komme. Dort geht es ja mehr um die User...

[Luckie]

Zu 1: Guck dir mal NetUserGetGroups an:

Zitat:

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

Das nutzt zwar nicht ActiveDirectory, geht aber auch.

[Codewalker]

In welcher Datei ist die Funktion den deklariert? Delphi kennt die von Haus aus nicht und auch das Refactoring findet nichts.

[Luckie]

Musst du selber deklarieren oder du nutzt die Jedi Header-Übersetzungen. Ich würde es aber selber machen, weil die Jedi Header-Übersetzungen etwas viel Overhead haben für so etwas.

[nahpets]

Hab' gerade noch mal auf der Festplatte gesucht und dabei ein Fragment zum Thema gefunden. Eventuell kannst Du damit was anfangen. Ob sich das Teil kompilieren lässt weiß ich nicht, aber eventuell hilft es Dir beim Umsetzen deiner Idee.
Prinzipiell funktioniert das Ganze über die ADO-Schnittstelle mit SQL.

Stephan

[Luckie]

So sollte es gehen:

Delphi-Quellcode:

type
  NET_API_STATUS = DWORD;

type
  TGroup_Users_Info_0 = record
    grui0_name: PChar;
  end;

function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall; external 'Netapi32.dll';
function NetUserGetGroups(servername: LPCWSTR; username: LPCWSTR; level: DWORD; flags: DWORD; var bufptr: Pointer;
  prefmaxlen: DWORD; var entriesread: DWORD; var totalentries: DWORD): NET_API_STATUS; stdcall; external 'Netapi32.dll';

[Codewalker]

Danke für die schnellen Antworten - ich werd mich gleich an die Arbeit werfen

[renekr]

Hi codewalker,
schon was gefunden wo passt?
bin auch auf der Suche nach sowas nur noch mit einer Authorizierungsabfrage gegenüber dem AD!

mfg