lister les groupes auxquel appartient un utilisateur

lister les groupes auxquel appartient un utilisateur - Delphi/Pascal - Programmation

Marsh Posté le 14-05-2008 à 13:24:35    

Salut à tous,
j'aimerais lister les groupes d'un utilisateur en renseignant son nom mais je galère,
 
j'ai repris ce code

Code :
  1. >function GetGroupsForUser(uname: string): string;
  2. >var
  3. >  Sid: PSID;
  4. >  SIDsz: dword;
  5. >  DomName: array[0..127] of Char;
  6. >  DomNameSz: dword;
  7. >  SidUse: SID_NAME_USE;
  8. >  pSubCnt: PUChar;
  9. >  SubCnt, i: integer;
  10. >  pSubAuth: PDword;
  11. >begin
  12. >  DomNameSz := SizeOf(DomName);
  13. >  SIDsz := 0; // force return of size
  14. >  if not LookupAccountName(nil, PChar(uname), Sid, SIDsz,
  15. >        DomName, DomNamesz, SidUse) then
  16. >  begin
  17. >    GetMem(Sid, SIDsz);
  18. >    try
  19. >      if LookupAccountName(nil, PChar(uname), Sid, SIDsz,
  20. >             DomName, DomNamesz, SidUse) then
  21. >      begin
  22. >        result := DomName + ' ' + IntToStr(SidUse);
  23. >        pSubCnt := GetSidSubAuthorityCount(Sid);
  24. >        SubCnt := pSubcnt^;
  25. >        for i := 0 to SubCnt - 1 do
  26. >        begin
  27. >          pSubAuth := GetSidSubAuthority(Sid, i);
  28. >          result := result + ' ' +  IntToStr(pSubAuth^);
  29. >        end;
  30. >      end;
  31. >    finally
  32. >      FreeMem(Sid);
  33. >    end;
  34. >  end;
  35. >end;


 
mais je n'arrive pas à obtenir le groupes sous forme de string,
qqn aurait une idée ?


---------------
DVD  
Reply

Marsh Posté le 14-05-2008 à 13:24:35   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed