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

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

NetUserAdd [D6, Win2k]

DelphiN! ©   (2005-05-12 09:21:00) 

Пытаюсь создать пользователя так :

var
 res, errInd : dword;
 ui : USER_INFO_1; //запись с данными о пользователе
 s : string;
begin
 ui.usri1_name := 'newadm';       // имя нового пользователя
 ui.usri1_password := 'mypass'; //пароль
 ui.usri1_password_age := 0;      //этот параметригнорируется
 ui.usri1_priv := USER_PRIV_ADMIN; //привелегия пользователя — обычный USER
       //другие возможные значения этого поля USER_PRIV_USER и USER_PRIV_ADMIN
 ui.usri1_home_dir := 'C:\';        //рабочий каталог пользователя
 ui.usri1_comment := '';
 ui.usri1_flags := UF_NORMAL_ACCOUNT;
    //набор флагов, определяющий тип пользователя. Подробнее см. win32.hlp
 ui.usri1_script_path := '';      //имя скрипта пользователя,
                                  //выполняемого при входе в систему

 //вызываем функцию NetUserAdd
 res := NetUserAdd('198.162.0.90', 1, @ui, errInd);

 //и в зависимости от возвращенного результата,
 //выдаем те или иные сообщения

 case res of
   ERROR_INVALID_PARAMETER : begin
     s := IntToStr(errInd);
     s := 'Error Invalid Parameter number ' + s;
     ShowMessage(s);
   end;
   ERROR_ACCESS_DENIED: ShowMessage('Access Denied');
   Nerr_Success : ShowMessage('Success');
   Nerr_InvalidComputer : ShowMessage('InvalidComputer');
   NERR_NotPrimary : ShowMessage('The operation is allowed only on the PDC.');
   NERR_GroupExists : ShowMessage('The group already exists.');
   NERR_UserExists : ShowMessage('The user account already exists.');
   NERR_PasswordTooShort : ShowMessage('The password is shorter than required.');
 end;


Но возвращается ошибка ERROR_INVALID_PARAMETER с индексом 5

В чем дело ?

---

VMcL   (2005-05-12 11:30:00) [1]

Дело вот в чём:

usri1_priv
Specifies a DWORD value that indicates the level of privilege assigned to the usri1_name member. When you call the NetUserAdd function, this member must be USER_PRIV_USER.

---

VMcL   (2005-05-12 11:28:00) [2]

#define USER_PRIV_PARMNUM               5

---

Наверх