Auslesen welcher User zu welcher Gruppe gehört?!

[Luckie]

Delphi-Quellcode:

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

Nur aus Neugier: Was soll das eigentlich werden, wenn es fertig ist?

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

:hello: :bounce1:


Ja, das funktioniert!!! Super!!! Danke!!!

[Luckie]

Und was soll das nun werden, wenn es fertig ist?

[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

[Luckie]

So erstmal, wir haben hier wunderschöne Code-Tags, bitte benutz die doch auch. So ist dein Quellcode kaum lesbar.

Zweitens: Sag mal, rätst du die Parameter, die die Funktion braucht oder was machst du da? Entweder kuckst du auf www.msdn.microsoft.com nach oder im PSDK (so fern du es hast und das solltest du für, das was du vorhast) oder du kuckst in den Jedi-Units nach (wobei das nicht ganz so aufschlußreich ist, da bekommt man nur den Datentyp.).

Letztendlich scheine ich ja doch dein ganzes Programm zu programmieren. :roll:

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

danke

[Luckie]

Hast du es den jetzt hinbekommen?

Delphi-Quellcode:

if NetUserGetLocalGroups(nil, 'Gast', 0, 0, lgi01, MAX_PREFERRED_LENGTH, dwEntriesRead, dwEntriesTotal) = NERR_SUCCESS then

So sieht es bei mir aus.

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

Nee, ich war noch am schauen, aber dein Lösungsansatz funktioniert!

Ich danke dir, hoffe ich kann dir mal bei anderen Sachen helfen, mit denen ich besser klar komme! Danke! :!: