获取Windows用户所属组信息

 

type
NET_API_STATUS = DWORD;

PLocalGroupUserInfo_0 = ^TLocalGroupUserInfo_0;

TLocalGroupUserInfo_0 = record
GroupName: LPWSTR;
end;

function NetUserGetLocalGroups(ServerName: LPCWSTR;UserName: LPCWSTR;Level: DWORD;Flags: DWORD;Buf: Pointer;PrefMaxLen: DWORD;var EntriesRead: DWORD;var Entries:DWORD ):NET_API_STATUS;stdCall;external 'NETAPI32.DLL';

function NetApiBufferFree(Buffer: Pointer):NET_API_STATUS;stdCall;external 'NETAPI32.DLL';

 

function TSecurity_WIN.GetUserGroups(const AUser: WideString): TStringList;
const

NERR_Success = 0;
LG_INCLUDE_INDIRECT = 1;

var
wName: WideString;
dwResult: DWORD;
P: PLocalGroupUserInfo_0;
PrefMaxLen: DWORD;
EntriesRead: DWORD;
TotalEntries: DWORD;
I: Integer;
Buf: Pointer;
wGroup: WideString;
begin
Result := TStringList.Create;
wName := AUser;
PrefMaxLen := $FFFFFFFF;
EntriesRead := 0;
TotalEntries := 0;
Buf := nil;
dwResult := NetUserGetLocalGroups(nil,PWideChar(wName),0,LG_INCLUDE_INDIRECT,@Buf,PrefMaxLen,EntriesRead,TotalEntries);

 

if dwResult = NERR_Success then
begin
if Buf <> nil then
begin
P := PLocalGroupUserInfo_0(Buf);
Result.Clear;
for I := 0 to EntriesRead - 1 do
begin
wGroup := P^.GroupName;
Result.Add(wGroup);
Inc(P);
end;
NetApiBufferFree(Buf);
end;
end;
end;