Auslesen welcher User zu welcher Gruppe gehört?!

[f.r.e.s.h.d]

Das hier war für die User:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  dwEntriesRead, dwEntriesTotal: DWORD;
  ui1, ui2 : Pointer;
  i : Integer;
begin
  if NetUserEnum(nil, 0, FILTER_NORMAL_ACCOUNT, ui1, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal, nil) = NERR_SUCCESS then
  begin
    ui2 := ui1;
    for i := 0 to dwEntriesRead-1 do
    begin
      Listbox1.Items.Add(PUserInfo1(ui1)^.usri1_name);
      Inc(Integer(ui1), SizeOf(Pointer));
    end;
  end;
  NetAPIBufferFree(ui2);
end;

Und das soll für die Gruppen sein:
(Erstmal alle Gruppen anzeigen, später muß nach zu jedem Benutzer die Gruppe ermittelt werden.)

Delphi-Quellcode:

var
  dwEntriesRead, dwEntriesTotal, jo : DWORD;
  ui1, ui2 : Pointer;
  i : Integer;
begin
  if NetLocalGroupEnum(nil, 0, FILTER_NORMAL_ACCOUNT, ui1, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal) = NERR_SUCCESS then
  begin
    ui2 := ui1;
    for i := 0 to dwEntriesRead-1 do
    begin
      Listbox1.Items.Add(PLOCALGROUPINFO0(ui1)^.lgrpi0_name);
      Inc(Integer(ui1), SizeOf(Pointer));
    end;
  end;
  NetAPIBufferFree(ui2);
end;

Code-Tages hinzugefügt - Luckie
Beim nächsten mal bitte selber machen.