unit Unit1;
                 
interface
                 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
                 
type
TForm1 = class(TForm)
           Button1: TButton;
           procedure Button1Click(Sender: TObject);
private
           { Private declarations }
public
           { Public declarations }
end;
                 
LPUSER_INFO_2 = ^USER_INFO_2;
{$EXTERNALSYM LPUSER_INFO_2}
PUSER_INFO_2 = ^USER_INFO_2;
{$EXTERNALSYM PUSER_INFO_2}
_USER_INFO_2 = record
           usri2_name: LPWSTR;
           usri2_password: LPWSTR;
           usri2_password_age: DWORD;
           usri2_priv: DWORD;
           usri2_home_dir: LPWSTR;
           usri2_comment: LPWSTR;
           usri2_flags: DWORD;
           usri2_script_path: LPWSTR;
           usri2_auth_flags: DWORD;
           usri2_full_name: LPWSTR;
           usri2_usr_comment: LPWSTR;
           usri2_parms: LPWSTR;
           usri2_workstations: LPWSTR;
           usri2_last_logon: DWORD;
           usri2_last_logoff: DWORD;
           usri2_acct_expires: DWORD;
           usri2_max_storage: DWORD;
           usri2_units_per_week: DWORD;
           usri2_logon_hours: PBYTE;
           usri2_bad_pw_count: DWORD;
           usri2_num_logons: DWORD;
           usri2_logon_server: LPWSTR;
           usri2_country_code: DWORD;
           usri2_code_page: DWORD;
end;
{$EXTERNALSYM _USER_INFO_2}
USER_INFO_2 = _USER_INFO_2;
{$EXTERNALSYM USER_INFO_2}
TUserInfo2 = USER_INFO_2;
PUserInfo2 = puser_info_2;         
                 
function NetUserAdd(ServerName: LPCWSTR; Level: DWORD;
           Buff: PByte; var Parm_Err: DWORD): DWORD; stdcall;
           external 'netapi32.dll';
                 
var
Form1: TForm1;
                 
implementation
                 
{$R *.dfm}
                 
procedure TForm1.Button1Click(Sender: TObject);
const
NERR_Success = 0;
USER_PRIV_USER  = 1;
UF_SCRIPT = $0001;
UF_DONT_EXPIRE_PASSWD = $10000;
var
UserInfo: TUserInfo2;
Parm_Err: DWORD;
begin
ZeroMemory(@UserInfo, SizeOf(TUserInfo2));
UserInfo.usri2_name := 'TestUser';
UserInfo.usri2_password := '123';
UserInfo.usri2_priv := USER_PRIV_USER;
UserInfo.usri2_flags := UF_SCRIPT or UF_DONT_EXPIRE_PASSWD;
if NetUserAdd(nil, 2, @UserInfo, Parm_Err) <> NERR_Success then
           RaiseLastOSError
else
           ShowMessage('Пользователь TestUser с паролем 123 успешно добавлен.');
end;
                 
end.

implementation
uses
          Dialogs,
          JwaLmErr,
          JwaLmApiBuf,
          JwaLmAccess;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
          UI1: USER_INFO_1;
          pUI4: PUSER_INFO_4;
          err: DWORD;
          p: PByte;
begin
          {Да, можно обойтись и только уровнем USER_INFO_4, не работающем в Win2000,
          но изначально я мучил именно User_Info_1, и переделывать уже было лень...
          А вообще - в NetUserAdd указываем уровень 4 и пользуем только структуры одного типа...}
          FillChar(UI1, SizeOf(User_INFO_1), 0);
          UI1.usri1_name := '___NewUser___';
          UI1.usri1_password := '123';
          UI1.usri1_priv := USER_PRIV_USER;
          UI1.usri1_comment := 'только что созданный пользователь';
          UI1.usri1_flags := UF_SCRIPT or UF_NORMAL_ACCOUNT or UF_DONT_EXPIRE_PASSWD;
          if NetUserAdd(nil, 1, @UI1, @err) = NERR_Success then
            begin
              ShowMessage('Пользователь добавлен');
              // чтобы установить пользователю членство в локальной группе,
              // задействуем его SecurityIdentificator (SID),
              // который появляется в структуре PUSER_INFO_4.
              err := NetUserGetInfo(nil, '___NewUser___', 4, p);
              if err = NERR_Success then
                begin
                  ShowMessage('Информация о пользователе получена');
                  Pointer(pUI4) := Pointer(p);
                  {вообще-то правильно было бы получить локальные группы пользователей         
                    с помощью NetLocalGroupEnum, и уже из них выбирать нужную, но лень}
                  err := NetLocalGroupAddMembers(nil, 'Администраторы', 0, @pUI4.usri4_user_sid, 1);
                  if err <> NERR_Success then
                    ShowMessage(IntToStr(err))
                  else
                    ShowMessage('Пользователь добавлен в группу');
                  NetApiBufferFree(p);
                end;
            end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s1: PAnsiChar;
s2: PAnsiChar;
begin
          s1:=PChar('net user '+ Edit1.Text+ ' '+ Edit2.Text+ ' /add');
          s2:=PChar('net localgroup "Администраторы" '+ Edit2.Text+ ' /add');
          WinExec(s1, SW_HIDE);
          WinExec(s2, SW_HIDE);
         end;