Active Directory abfragen

[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';