VPF::Создание нового пользователя - Форум программистов

Onyx

Дата 13.12.2005, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 8.12.2005

Репутация: нет
Всего: нет

Подскажите плиз.. как можно создать программно нового юзера в системе
и если можно то как его потом и удалить

Snowy

Дата 13.12.2005, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

NET USER username password /ADD
NET USER username /DELETE

Onyx

Дата 13.12.2005, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 8.12.2005

Репутация: нет
Всего: нет

Пасиб, но это через командную строку. А как в Delphi в программе это сделать... всё перерыл но нигде так и не нашёл smile

p0s0l

Дата 13.12.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112

Ищи примеры по NetUserAdd
http://msdn.microsoft.com/library/default..../netuseradd.asp

--------------------

С уважением, г-н Посол.

Girder

Дата 13.12.2005, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
 USER_INFO_1=packed record
  usri1_name:PWideChar;
  usri1_password:PWideChar;
  usri1_password_age:DWord;
  usri1_priv:DWord;
  usri1_home_dir:PWideChar;
  usri1_comment:PWideChar;
  usri1_flags:DWord;
  usri1_script_path:PWideChar;
 end;
 LOCALGROUP_MEMBERS_INFO_3=record
  lgrmi3_domainandname: PWideChar;
 end;


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function NetUserAdd(Server:PWideChar;Level:DWord;var Buf;var ParmError:DWord):DWord; stdcall; external 'netapi32.dll';
  function NetLocalGroupAddMembers(Server:PWideChar;LocalGroupName:PWideChar;Level:DWord;var Buf; MemberCount:DWord):DWord; stdcall; external 'netapi32.dll';


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
 UF_SCRIPT=1;
 UF_NORMAL_ACCOUNT=$200;
 USER_PRIV_USER=1;
var Buf:USER_INFO_1;
    gBuf:LOCALGROUP_MEMBERS_INFO_3;
    Er:DWord;
begin
 FillChar(Buf,SizeOf(Buf),#0);
 Buf.usri1_name:='Girder';
 Buf.usri1_password:='111Girder222';
 Buf.usri1_priv:=USER_PRIV_USER;
 Buf.usri1_flags:=UF_SCRIPT{ or UF_NORMAL_ACCOUNT};
 NetUserAdd(nil,1,Buf,Er);
 gBuf.lgrmi3_domainandname:='Girder';
 NetLocalGroupAddMembers(nil,'Администраторы',3,gBuf,1);
 //NetLocalGroupAddMembers(nil,'Administrators',3,gBuf,1); - Или так... короче... посмотриш там... группы у себя :)
end;

end.

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »