Как создать учетную запись пользователя используя IP адрес?

[artemavd]

Добрый вечер! С правами администратора можно создать учетную запись пользователя так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('cmd /c "net user UserName UserPass /add"', SW_HIDE);
end;

Можно ли, в локальной сети, от имени администратора, создать учетную запись, указав IP адрес компьютера обычного пользователя?

[Аватар]

Синтаксис NET USER http://www.koipkro.kostroma.ru/koiro...tent/4/3_3.htm не позволяет этого

[artemavd]

Подниму свою старую тему.
Что использовать, чтобы можно было передать имя новой учетной записи и пароль, например, из Edit? Просто так не могу написать, ругается на несовместимость PAnsiString и string.
Попробовал применить код отсюда: http://www.kansoftware.ru/?tid=5330
Учётная запись создается, но она почему-то не видна если сделать выход из системы и не видна в списке учётных записей в панели управления.
Что надо доделать, чтобы создавалась учётная запись и была видна в общем списке учётных записей? А то так новую учетку даже в группу не добавить.

[northener]

Просто так не могу написать, ругается на несовместимость PAnsiString и string

Надо в таких случайх использовать явное приведение типа

PChar(Edit1.text)

[artemavd]

Сообщение от northener

Надо в таких случайх использовать явное приведение типа

PChar(Edit1.text)

Так:

 WinExec('cmd /c "net user ' + PChar(Form1.sEdit1.Text) + ' 123 /ADD"', SW_HIDE);

не работает.
Выдается ошибка при компиляции:

[DCC Error] Unit1.pas(192): E2010 Incompatible types: 'PAnsiChar' and 'string'

И курсор ставится после /ADD"

[Stilet]

Ох Артем )
это же знаменитые грабли - приводить к типу нужно результат конкатенации строк а не только часть выражения.

WinExec(PChar('cmd /c "net user ' + Form1.sEdit1.Text + ' 123 /ADD")', SW_HIDE);

Обсуждалось между прочем много раз.

[artemavd]

Сообщение от Stilet

Ох Артем )
это же знаменитые грабли - приводить к типу нужно результат конкатенации строк а не только часть выражения.

WinExec(PChar('cmd /c "net user ' + Form1.sEdit1.Text + ' 123 /ADD")', SW_HIDE);

Обсуждалось между прочем много раз.

Виталий, так не компилируется)
Скобка после /ADD где должна стоять?

[Stilet]

Скобка после /ADD где должна стоять?

Ну да. Очепятка. Поставь ее в нужное место, чтоб охватывала выражение

P.S. А вообще мне думается что лучше добавлять пользователей другими средствами WinAPI, WMI... Но не устаревшим WinEXEC через консоль.

[artemavd]

Сообщение от Stilet

Ну да. Очепятка. Поставь ее в нужное место, чтоб охватывала выражение

P.S. А вообще мне думается что лучше добавлять пользователей другими средствами WinAPI, WMI... Но не устаревшим WinEXEC через консоль.

Да WinExec нормально создает пользователя если все написать "жестко", а мне надо всего-то параметры передать. Меня устраивает как она отрабатывает.
Даже если я скобку ставлю правильно, то все равно не компилируется. Я кстати так пробовал писать, но все равно не идет компиляция

[Аватар]

Там PAnsiChar

то все равно не компилируется

Наверно же говорит почему