Перепробовав много функций в попытке зачислить тестового пользователя в админы, мне надоело каждый раз объявлять всё новые и новые функции из Netapi32.dll.
Посему - предлагаю воспользоваться готовым решением по всему и вся из MSDN, портированному в Delphi, а именно - http://sourceforge.net/projects/jedi-apilib/.
Дописывал уже засыпая, посему за оформление и упущения в обработке ошибок - не ругаться. 
| Код |
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;
|
|
)