Форум: "Сети";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
ВнизКак получить список групп и пользователей домена ? Найти похожие ветки
← →
Nosov (2004-01-08 10:01) [0]Как получить список групп и пользователей домена ?
← →
Andersen (2004-01-12 12:16) [1]NetLocalUserEnum, NetLocalGroupEnum что - то в этом духе
← →
Balu © (2004-01-12 14:55) [2]У меня так:
function getGroups(ulist: TStringList; compName: string):TStringList;
var
info: PGROUP_INFO_1;
pinfo: pointer;
size: DWORD;
total: DWORD;
resume: DWORD;
res: DWORD;
i: integer;
p: PChar;
pwszComp: PWideChar;
begin
pinfo := nil;
resume := 0;
GetMem(pwszComp,length(compName)*2+2);
StringToWideChar(compName,pwszComp,length(compName)*2+2);
res := NetLocalGroupEnum(pwszComp,1,@pinfo,65536,@size,@total,@resume);
if res<>nerr_success then
begin
ShowMessage("Error");
Result := nil;
exit;
end;
p := PChar(pinfo);
for i := 0 to size-1 do
begin
info := PGROUP_INFO_1(p + i * SizeOf(GROUP_INFO_1));
ulist.Add(WideCharToString(PWideChar((info^).grpi1_name)));
end;
NetApiBufferFree(pinfo);
result := ulist;
end;
← →
Nosov (2004-01-13 11:01) [3]Это то ясно. А из под рабочей станции Win98 Как ?
Пишет ошибку что нет такой функции в netapi32.all.
А когда включаешь доступ на уровне пользователей
винда то списки считывает с сервера... :(
← →
Nosov (2004-01-13 11:02) [4]Это то ясно. А из под рабочей станции Win98 Как ?
Пишет ошибку что нет такой функции в netapi32.dll
А когда включаешь доступ на уровне пользователей
винда то списки считывает с сервера... :(
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c