Auslesen welcher User zu welcher Gruppe gehört?!

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

Weiß das sit ein bisschen nervig, hast du vielleciht auch einen Lösungsansatz für die Ermittlung der Gruppen des einzelnen Users?

So weit bin ich gekommen, aber diese Variablen machen mich voll wuschig!

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  dwEntriesRead, dwEntriesTotal: DWORD;
  lgi01, lgi02 : Pointer;
  i : Integer;
begin
  lgi02 := nil;
  Listbox1.Clear;
  if NetUserGetGroups(nil, lgi01(hier muß irgendwie der Name des Benutzers rein?!), FILTER_NORMAL_ACCOUNT, lgi01, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal) = NERR_SUCCESS then
  begin
    lgi02 := lgi02;
    for i := 0 to dwEntriesRead-1 do
    begin
      Listbox1.Items.Add(PGROUPUSERSINFO0(lgi01)^.grui0_name);
      Inc(Integer(lgi01), SizeOf(Pointer));
    end;
  end;
  NetAPIBufferFree(lgi02);
end;

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