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

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

Учетная запись [D5, Win2k, WinXP]

Max ©   (2002-03-03 13:35:00) 

Прошу помощи!
Как из Delphi в Win2k включить или выключить учетную запись пользователя?
Всем спасибо!

---

Tosov   (2002-03-04 17:48:00) [1]

var
Buf :GROUP_INFO_1;
Group : PWideChar;
User : PWideChar;

Buf.grpi1_name="New Group";
Buf.grpi1_comment="My New group";
NetGroupAdd(Server,1,@Buf,nil);

Group="Admins";
User="VasyaP";
NetGroupAddUser(Server,"New Group","Admin");
NetGroupDelUser(Server,Group,User);

ЗЫ.На всякий случай StringToWideChar

---

Max   (2002-03-04 04:14:00) [2]

Спасибо, дальше сам разберусь.
И еще вопрос!
Как создать новую группу пользователей и добавить (удалить) из нее пользователя?
Всем спасибо!

---

Tosov   (2002-03-04 00:33:00) [3]

Примерно так (возможны ошибки :-( )

var
Buf : USER_INFO_2;
Server,UserName : PWideChar;

begin
NetUserGetInfo(Server,UserName,2,@buf);
Buf.usri2_flags=Buf.usri2_flags or UF_ACCOUNTDISABLE; //Блокируем
NetUserSetInfo(Server,UserName,2,@Buf, nil );
end;

Описание функций на http://www.delphi-jedi.orgили переводи руками из MSDN.

---

Наверх