Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

помогите с NetUserSetGroups [D7, WinXP]


ZSOmega ©   (2005-11-22 10:32:00) 

в результате выполнения следующего кода получаю код 2220 - группа не найдена, где может быть ошибка?
Windows XP русский

type
 LPBYTE = Windows.PBYTE;
 NET_API_STATUS = DWORD;
_GROUP_USERS_INFO_0 = record
   grui0_name: LPWSTR;
 end;
const
 NetApi32 = 'netapi32.dll';
function NetUserSetGroups(servername, username: LPCWSTR; level: DWORD; buf: LPBYTE; num_entries: DWORD): NET_API_STATUS; stdcall; external netapi32 name 'NetUserSetGroups'
var
 gi      : _GROUP_USERS_INFO_0;
 gn,un   : WideString;
 nStatus : NET_API_STATUS;
begin
un:='test';
gi.grui0_name:='Администраторы';
nStatus:=NetUserSetGroups(nil,PWideChar(un),0,@gi,1);
WriteLn(nStatus);
ReadLn;
end.


ZSOmega   (2005-11-23 11:42:00) [1]

всё получилось спасибо


ZSOmega   (2005-11-23 11:26:00) [2]

ок попробую


SergGG   (2005-11-23 09:58:00) [3]


> Какая-какая система?

XP SERVER - Это образно!. Должна быть просто Сервер система


BiN   (2005-11-23 09:43:00) [4]


> ZSOmega   (22.11.05 10:32)  
>
> в результате выполнения следующего кода получаю код 2220
> - группа не найдена, где может быть ошибка?
> Windows XP русский
> ZSOmega   (23.11.05 08:26) [3]
>
> я с помощью NetLocalGroupEnum получал список групп
> даже сделал тупо как нахожу группу администраторы так передаю
> это значение на NetUserSerGroups - не помогает


Для добавления учетной записи в локальную группу используй NetLocalGroupAddMembers.


> SergGG ©   (23.11.05 09:24) [4]
>
> У Вас не получиться, потому что твоя система не является
> сервером домена. Там учавствуют глобальные группы. Вот еслиб
> у Вас была система XP SERVER, то тогда бы всё получилось.
>


Какая-какая система?


SergGG   (2005-11-23 09:24:00) [5]

У Вас не получиться, потому что твоя система не является сервером домена. Там учавствуют глобальные группы. Вот еслиб у Вас была система XP SERVER, то тогда бы всё получилось.
Или если ты входишь в Домен и являешся его администратором, то ставишь в servernameимя сервера Домена и ты установишь usera включённый в Домен.


ZSOmega   (2005-11-23 08:26:00) [6]

я с помощью NetLocalGroupEnum получал список групп
даже сделал тупо как нахожу группу администраторы так передаю это значение на NetUserSerGroups - не помогает


clickmaker   (2005-11-22 15:38:00) [7]


> В Windows XP нет групп

???


SergGG   (2005-11-22 15:15:00) [8]

В Windows XP нет групп воспользуйся

NetUserGetGroups

и убедишся, что у тебя нет групп
Есть локальные группы можешь просмотреть из функции:
NetLocalGroupEnum


Наверх

Титульная страница Поиск, карта сайта Написать письмо