Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Учетная запись   Найти похожие ветки 

 
Max ©   (2002-03-03 13:35) [0]

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


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

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

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.


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

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


 
Tosov ©   (2002-03-04 17:48) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-97285
Eagle
2002-05-18 20:07
2002.05.30
Примоугольник с скругленными углами


3-97164
MaXie
2002-05-06 11:39
2002.05.30
Как граммотно обеспечить доступ к сис.таблице?


8-97353
VEG
2001-12-27 19:37
2002.05.30
Нужен компонент как TMediaPlayer.


3-97165
Labert
2002-05-07 13:27
2002.05.30
Проблема с хранимой процедурой на ms sql server 6.5


4-97456
SPeller
2002-03-29 10:13
2002.05.30
Систем инфо...