[lestatgi]

доброго время суток. помогите решить проблему нужно выполнить runas /user:domen\name "net session /delete /y"
делаю это вот так

Код:

ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'runas /user:elbor\tehspec "net session /delete /y"', nil, SW_show);

выводит окошко ввода пороля. как можно сделать чтобы пороль вводился автоматом, либо может можно както по другому сделать?

[M.A.D.M.A.N.]

Специфика программы такая:

Примечание: вводите пароль пользователя только тогда, когда он запрашивается.
Примечание: параметр /profile несовместим с параметром /netonly.
Примечание: параметр /savecred несовместим с параметром /smartcard.

Эта хреновина запускает приложение через CreateProcessWithLogonW, можно свою утилитку сделать.

[lestatgi]

сделал

Код:

function CreateProcessWithLogonW(user:pwidechar; domain:pwidechar;
passw:pwidechar;
flags: DWORD;
 lpApplicationName: PwideChar;
 lpCommandLine: PwideChar;
  dwCreationFlags: DWORD;
  lpEnvironment: Pointer;
  lpCurrentDirectory: PWideChar;
  const lpStartupInfo: TStartupInfo;
  var lpProcessInformation: TProcessInformation): BOOL;
  stdcall;external 'advapi32.dll' name 'CreateProcessWithLogonW';

потом

Код:

CreateProcessWithLogonW('tehspec', 'elbor', 'пас', 0, nil,  PWideChar(CreateProcess(nil, 'cmd.exe /c net session /delete /y', nil, nil, False, 0, nil, nil, startupinfo, processinformation)) ,0, nil, nil, si, pif) ;

и все равно не от друго пользователя а если для проверки делаю

Код:

CreateProcessWithLogonW('tehspec', 'elbor', 'пас', 0, nil, 'notepad',0, nil, nil, si, pif) ;

то все работает в чем проблема?