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

Вниз

Добавлeние учетных записей   Найти похожие ветки 

 
som   (2006-01-20 15:11) [0]

Как программно добавить новую учётную запись с правами администратора ?


 
BiN ©   (2006-01-20 15:13) [1]

NetUserAdd
NetLocalGroupAddMember


 
ITC   (2006-02-06 11:09) [2]

Можно пример?


 
kaZaNoVa ©   (2006-02-06 11:28) [3]

procedure TForm2.AddUserClick(Sender: TObject);
var buf: Pointer;
    UserInfo: TAddUserInfo;
    error: NET_API_STATUS;
    parm_err: DWORD;
    HostName,User_Name,Passw: WideString;
begin
  HostName:=WideString("\\"+Trim(Form1.CompName.Text));
  User_Name:=WideString(Trim(UserName.Text));
  Passw:=WideString(Trim(Password.Text));
  UserInfo.usri1_name:=PWideChar(User_Name);
  UserInfo.usri1_password:=PWideChar(Passw);
  UserInfo.usri1_password_age:=0;
  UserInfo.usri1_priv:=USER_PRIV_USER;
  UserInfo.usri1_home_dir:="";
  UserInfo.usri1_comment:=PWideChar(WideString("Создан программой NetAdmin"));
  UserInfo.usri1_flags:=UF_SCRIPT or
                        UF_DONT_EXPIRE_PASSWD or
                        UF_NORMAL_ACCOUNT or
                        UF_PASSWD_CANT_CHANGE;
  UserInfo.usri1_script_path:="";
  buf:=@UserInfo;
  error:=NetUserAdd(PWideChar(HostName),1,buf,parm_err);
  case error of
    ERROR_ACCESS_DENIED: Application.MessageBox("Пользователю недостаточно прав для выполнения функции!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
    NERR_InvalidComputer: Application.MessageBox("Неверное имя компьютера!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
    NERR_NotPrimary: Application.MessageBox("Операция разрешена только для главного контроллера домена!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
    NERR_GroupExists: Application.MessageBox("Группа пользователей уже существует!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
    NERR_UserExists: Application.MessageBox("Пользователь уже существует!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
    NERR_PasswordTooShort: Application.MessageBox("Слишком короткий пароль!",
                         "Ошибка",MB_OK+MB_ICONSTOP);
  else
    Users.Items.Add(Trim(UserName.Text));
  end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.057 c
3-1141198179
Sergg
2006-03-01 10:29
2006.04.23
Обновить счетчик в Акцессе


2-1143981521
новичок111
2006-04-02 16:38
2006.04.23
Как сделать пакет данных???


15-1143638800
49 Cent
2006-03-29 17:26
2006.04.23
Как называется песня?


15-1143653618
Kolan
2006-03-29 21:33
2006.04.23
Совместимось bpl пакетов Delphi 2006 с Delphi 7.


6-1136885549
GuAV
2006-01-10 12:32
2006.04.23
Вопрос по Demos Internet NetChat