Текущий архив: 2006.12.10;
Скачать: CL | DM;
Вниз
NetUserGetGroups Найти похожие ветки
← →
Andrewk88 (2006-07-31 02:09) [0]Как обьявить функцию NetUserGetGroups. нифига понять не могу
← →
Andrewk88 (2006-07-31 03:27) [1]в общем суть задачи получить имена всех пользователей группы
← →
AbrosimovA © (2006-07-31 08:21) [2]Вот из JwaLM.pas:
function NetUserGetGroups; external netapi32lib name "NetUserGetGroups";
{$EXTERNALSYM NetUserGetGroups}
function NetUserGetGroups(servername: LPCWSTR; username: LPCWSTR; level: DWORD;
var bufptr: Pointer; prefmaxlen: DWORD; var entriesread: DWORD;
var totalentries: DWORD): NET_API_STATUS; stdcall;
← →
Сивый © (2006-07-31 08:50) [3]Вобще то NetUserGetGroups возвращает список глобальных групп, членом которых является указанный пользователь.
Если задача стоит в том что бы "в общем суть задачи получить имена всех пользователей группы" то тогда это можно сделать с помощью функции
NetUserGetLocalGroups, примерно так:
...
NET_API_STATUS = DWORD;
function NetUserGetLocalGroups(servername: LPCWSTR; username: LPCWSTR;
level: DWORD; flags: DWORD; var bufptr: Pointer; prefmaxlen:
DWORD; var entriesread: DWORD; var totalentries: DWORD):
NET_API_STATUS; stdcall; external "netapi32.dll"
name "NetUserGetLocalGroups";
function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall;
external "Netapi32.dll";
....
type
TSostavInfo = record
lgrmi1_sid: PWideChar;
lgrmi1_sidusage: PWideChar;
lgrmi1_name: PWideChar;
end;
...
procedure TForm1.GetUserFromGroup(Group: String);
var entriesread,totalentries: DWORD;
resumehandle: DWord;
LG: ^TSostavInfo;
i: integer;
Sostav: TStringList;
begin
LG:=nil;
resumehandle:=0;
Sostav:=TStringList.Create;
NetLocalGroupGetMembers(nil ,StringToWideChar(Group),1,LG,
10000,entriesread,totalentries,resumehandle);
if LG<>nil then
for i:=1 to entriesread do
begin
Sostav.Add(WideCharToString(LG^.lgrmi1_name));
INC(LG,1);
end;
NetApiBufferFree(LG);
end;
← →
Сивый © (2006-07-31 08:55) [4]Прошу прощения имя второго параметра в строке function NetUserGetLocalGroups(servername: LPCWSTR; groupname: LPCWSTR; ....
:-)))
← →
Rouse_ © (2006-07-31 16:10) [5]
> Andrewk88
Изучай: http://rouse.front.ru/domaininfo.zip
Страницы: 1 вся ветка
Текущий архив: 2006.12.10;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.047 c
