[Помогите!] Создание пользователя Windows Xp|7 [delphi]

[=PaLeTiZaToR=]

Здравствуйте.

Как программно [delphi] создать пользователя Windows ?
Интересует создание через реестр , и без него (есле такое возможно).
Приветствуются комментарии в коде )))

Зараннее спасибо.


Сделал вот так

stringlist:= TStringList.Create;
stringlist.Add('net user '+edit1.Text+' '+edit2.Text+' /add');
stringlist.Add('net localgroup Administrators '+edit1.Text+' /add');
stringlist.Add('net localgroup "Remote Desktop Users" '+edit1.Text+' /add');
stringlist.Add('net accounts /maxpwage:unlimited');
stringlist.SaveToFile('1.bat');
ShellExecute(Handle,'open','1.bat',nil,nil,0);

Создает с правами обычного юзера , как сделать чтоб с правами админа ?

[R.A.Z.O.R.]

Попробуй так, не нужно будет создавать файл:

  WinExec('net user '+PChar(User)+' '+PChar(Pass)+' /add',SW_HIDE);
  WinExec('net localgroup Administrators '+PChar(User)+' /add',SW_HIDE);
  WinExec('net localgroup "Remote Desktop Users" '+PChar(User)' /add',SW_HIDE);
  WinExec('net accounts /maxpwage:unlimited',SW_HIDE);

А вообще ты уверен, что на дедике у тебя права админа? И запускается .bat от имени админа? Все правильно, я так же себя добавлял вручную.

[Number/1/]

а разве WinExec не устаревшая версия ShellExecute или CreateProcess?

[R.A.Z.O.R.]

Цитата: Сообщение от Number/1/ а разве WinExec не устаревшая версия ShellExecute или CreateProcess?

В данном случае более удобная.

[=PaLeTiZaToR=]

Проблема была в кодировке
net localgroup Ђ¤¬Ё*Ёбва*в®ал '+Edit1.Text+' /add

Добавлено через 2 минуты

Цитата: Сообщение от R.A.Z.O.R. Попробуй так, не нужно будет создавать файл: WinExec('net user '+PChar(User)+' '+PChar(Pass)+' /add',SW_HIDE); WinExec('net localgroup Administrators '+PChar(User)+' /add',SW_HIDE); WinExec('net localgroup "Remote Desktop Users" '+PChar(User)' /add',SW_HIDE); WinExec('net accounts /maxpwage:unlimited',SW_HIDE); А вообще ты уверен, что на дедике у тебя права админа? И запускается .bat от имени админа? Все правильно, я так же себя добавлял вручную.

Это мой комп а не дедик =)))