Форум: "WinAPI";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Вниз
Добавл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 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
