NetUserAdd

← →
DelphiN! © (2005-05-12 09:21) [0]

Пытаюсь создать пользователя так :
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:28) [1]

#define USER_PRIV_PARMNUM 5

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

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.

NetUserAdd Найти похожие ветки