[Delphi] Изменение пароля пользователя

[Рамик]

Доброго времени суток!
подскажите пожалуйста как можно программно изменить пароль пользователя?

[Lemo]

пользователя на форуме?
для начала советую почитать http://programmersforum.ru/showthread.php?t=38803

[Gorychev]

Если в винде, с помощью делфи, с правами админа, на локальном компе то так:

winexec(PChar('cmd /c net user ИМЯ_ЮЗЕРА НОВЫЙ_ПАРОЛЬ_ЮЗЕРА'),SW_Hide);

пример:

winexec(PChar('cmd /c net user vasja 12345'),SW_Hide);

Если нужно по сети, есть еще параметр /domain, читайте справку для net user.

[zotox]

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

Если в винде, с помощью делфи, с правами админа, на локальном компе то так:

winexec(PChar('cmd /c net user ИМЯ_ЮЗЕРА НОВЫЙ_ПАРОЛЬ_ЮЗЕРА'),SW_Hide);

пример:

winexec(PChar('cmd /c net user vasja 12345'),SW_Hide);

Если нужно по сети, есть еще параметр /domain, читайте справку для net user.

Это не программно... Это посылание команды в напрямую консоль(а консоль уже сама обр.) а не прямое обращение к windows...

[Gorychev]

Это не программно... Это посылание команды в напрямую консоль(а консоль уже сама обр.) а не прямое обращение к windows...

Код рабочий, проверенный. А если это код - то это часть программы(или скрипта). Что вас не устраивает? Ваш вариант?

[zotox]

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

Код рабочий, проверенный.

А кто говорил что код не рабочий?

Что вас не устраивает?

Дело таки в том если я нахожусь не под рутом и если я не могу изменить пароль (к примеру гость или другая учетка) то надо еще и программно анализировать ответ из cmd что не совсем удобно мне кажится(так же если от программы напрямую посылать OC о изменении пароля то будет все как наладони (если будет та или иная ошибка))
Так же я думаю что операция чуть дольше будет исп. если делать так(однако размер проги будет выигрывать с вариантом cmd)

Программа --> Посылка в cmd --> cmd анализирует и посылает от себя команду в ОС

Так будет чуть побыстрее (тоже так думаю)

Программа --> Посылка в ОС сразу о смене пароля (без cmd, так как cmd сразу не меняет пароль, то есть cmd отсылает команду ОС о смене пароля, а OC уже меняет)

Ваш вариант?

Моего варианта нету...(мне самому интересно посмотреть вариант кода)(не подумайте что я умничаю )
Но очень уж больно простой код вы привели(я не мазахист) и не очень удобный в плане анализа ошибок если в cmd что-то пойдет не так (к примеру не рут доступ)

[Рамик]

winexec(PChar('cmd /c net user vasja 12345'),SW_Hide);

[/QUOTE]


а как сделать чтобы пароль был тот что я ввел в edit1.text(и имя пользователя в edit2)?

[Stilet]

Читай в хелпе про NetUserChangePassword

[Mr Robot]

procedure SetPasswordActiveUser(Password:string);
var
  UN, SPar: string;
  UName: TMemo;
  function GetCurrentUserName: string;
  const
    cnMaxUserNameLen = 254;
  var
    sUserName: string;
    dwUserNameLen: DWORD;
  begin
    dwUserNameLen := cnMaxUserNameLen - 1;
    SetLength(sUserName, cnMaxUserNameLen);
    GetUserName(PChar(sUserName), dwUserNameLen);
    SetLength(sUserName, dwUserNameLen);
    Result := sUserName;
  end;

begin
 UN := GetCurrentUserName;
  UName := TMemo.Create(nil);
  UName.Text := UN;
  try
    SPar := '/K net user ' + UName.Text + ' /active:yes && net user ' + UName.Text + ' '+Password+' && exit';
    ShellExecute(0, nil, 'cmd.exe', PChar(SPar), nil, 0);
    Application.ProcessMessages;
    Sleep(100);
    Application.ProcessMessages;
  except
    Application.ProcessMessages;
  end;
  UName.Free;

end;