Einzelnen Beitrag anzeigen

renekr

Registriert seit: 27. Feb 2005
Ort: Karlsbad
534 Beiträge
 
Delphi 2007 Enterprise
 
#10

Re: NetUserGetGroups & NetUserGetLocalGroups

  Alt 29. Jan 2009, 15:01
Hallo,
Ich bin aktuell auch an dem Thema dran und habe nen Problem.

Ich bekomme egal was ich einstelle nur 50 Gruppen von einem User heraus.
Obwohl der User mehr wie 70 Gruppen zugeordnet hat !

Kann mir da jemand helfen oder sind 50 max. aber das kann ja eig. nicht sein ?

Mein Aufruf :

Delphi-Quellcode:

function NetUserGetGroups (Domain: LPCWSTR; UserName: LPCWSTR; Level: cardinal;var bufptr: Pointer;
  MaxLength:cardinal;var entriesread,totalentries:cardinal): NET_API_STATUS ;stdcall;external 'netapi32.dll';

//#####################
Type
   TGROUPUSERSINFO_0 = record
    usri3_name: Array [0..100] of LPWSTR;
  end;
  PGROUPUSERSINFO_0 = ^TGROUPUSERSINFO_0;
var
//#########
var
grppointer: PGROUPUSERSINFO_0;
buffer:Pointer;

NetError:=NetUserGetGroups (domain,username,0, buffer,MAX_PREFERRED_LENGTH,entries,totalentries);


if (NetError = NERR_SUCCESS) then
begin
  grppointer := buffer;
          Listview1.items.add;
          Listview1.items[0].caption:=inttostr(totalentries)+'--'+inttostr(entries);

  For I := 0 To entries - 1 Do
  begin
      Listview1.items.Add;
      Listview1.items[Listview1.items.count-1].caption:=grppointer.usri3_name[i];
    end;

end else
Edit: Also ich habe es mal bei anderen Usern getestet.
Bei einem wird mir 71 angezeigt obwohl er ca 90 Groups hat.
Beim andere 31 obwohl er über 50 hat.
Also die 50 scheint keine Grenze zusein .
Zudem werden mir als Gruppen nicht angezeigt aber die sidn im selben AD Folder angelegt wo welche wo angezeigt werden.
Hat dafür jemand eine Erklärung ?

mfg
  Mit Zitat antworten Zitat