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

Вниз

Когда-то я спрашивал, как можно добавить юзера...   Найти похожие ветки 

← →
anana][   (2004-01-06 15:32) [0]

Когда-то я спрашивал, как можно добавить юзера.
Ответов по существу не было...
Но..
Я все-таки нашел вариант...
Тем кому ЭТО еще надо, ловите:

unit Unit1;
// бла-бла-бла...
type
_USER_INFO_1 = Record
User1_name: PWideChar;
User1_pssword: PWideChar;
User1_PASSWORD_AGE: cardinal;
User1_priv: DWord;
User1_home_dir: PWideChar;
User1_comment: PWideChar;
User1_flags: cardinal;
User1_script_path: PWideChar;
end;
TUserInfo1 = _USER_INFO_1; //есть другие варианты читайте хелп по WinAPI
PUserInfo1 = ^TUserInfo1;
const
UF_SCRIPT = $0001;
USER_PRIV_USER = 1;
function NetUserAdd (
Server: PWideChar; level: cardinal;
BufPtr: PUserInfo1; Param_Err: Cardinal): LongInt;
STDCALL; EXTERNAL "netapi32.dll";

implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var
adduser: TUserInfo1;
nStatus: DWord;
PWUser, PWServName, PWPass, PWComm: PWideChar;
IUser, IServName, IPass, IComm: Integer;
ServName: PWideChar;
Begin

IUser:=(Length (Edit1.Text)+1);
GetMem(PWUser, SizeOF(WideChar)*IUser);
StringToWideChar (Edit1.Text,PWUser,IUser);

IServName:=(Length (Edit2.Text)+1);
GetMem(PWServName, SizeOF(WideChar)*IServName);
StringToWideChar (Edit2.Text,PWServName,IServName);

IPass:=(Length (Edit3.Text)+1);
GetMem(PWPass, SizeOF(WideChar)*IPass);
StringToWideChar (Edit3.Text,PWPass,IPass);

IComm:=(Length (Memo1.SelText)+1);
GetMem(PWComm, SizeOF(WideChar)*IComm);
StringToWideChar (Memo1.SelText,PWComm,IComm);

ServName:=PWServName; // Почему-то у меня не работает лучше
// в рукопашку dводить ServName:="qwerty";
adduser.User1_name:=PWUser;
adduser.User1_pssword:="Passvord";
adduser.User1_priv:=USER_PRIV_USER;
adduser.User1_home_dir:=nil;

adduser.User1_comment:=PWComm;
adduser.User1_flags:=UF_SCRIPT;
adduser.User1_script_path:=nil;

nStatus:=NetUserAdd(ServName,1,@adduser,0);
FreeMem(PWUser);

end;
end.

---

← →
Mystic ©   (2004-01-06 17:43) [1]

> Когда-то я спрашивал, как можно добавить юзера.
..........................................
> // читайте хелп

---

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

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

Наверх

Память: 0.47 MB
Время: 0.016 c