function CreateProcessWithLogonW(
  lpUsername: WideString;                 // user's name
  lpDomain: WideString;                   // user's domain
  lpPassword: WideString;                 // user's password
  dwLogonFlags: DWORD;                 // logon option
  lpApplicationName: WideString;          // executable module name
  lpCommandLine: WideString;               // command-line string
  dwCreationFlags: DWORD;              // creation flags
  lpEnvironment: WideString;               // new environment block
  lpCurrentDirectory: WideString;         // current directory name
  lpStartupInfo: windows.STARTUPINFO;       // startup information
  lpProcessInfo: windows.PROCESS_INFORMATION // process information
): boolean; external 'advapi32.dll';

.........

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
  Username, Domain, passwrd, CommandLine: WideString;
  Token: DWORD;//PHanndle
  start: windows.STARTUPINFO;
  proc_info: windows.PROCESS_INFORMATION;
begin
  Username:='User0';
  passwrd:='';
  CommandLine:='c:\winnt\system32\cscript.exe d:\Scripts\del_u.vbs >> user0.txt';
  if not CreateProcessWithLogonW(
           UserName,                 // user's name
           Domain,                   // user's domain
           Passwrd,                 // user's password
           0,                             // logon option
           '',                             // executable module name
           CommandLine,        // command-line string
           windows.CREATE_DEFAULT_ERROR_MODE,              // creation flags
           '',                            // new environment block
           '',                            // current directory name
           start,                     // startup information
           proc_info              // process information
  )then ShowMessage('ОБЛОМ :-(((');
end;

function CreateProcessWithLogonW(
  lpUsername: WideString;                 // user's name
  lpDomain: WideString;                   // user's domain
  lpPassword: WideString;                 // user's password
  dwLogonFlags: DWORD;                 // logon option
  lpApplicationName: WideString;          // executable module name
  lpCommandLine: WideString;               // command-line string
  dwCreationFlags: DWORD;              // creation flags
  lpEnvironment: WideString;               // new environment block
  lpCurrentDirectory: WideString;         // current directory name
  lpStartupInfo: windows.STARTUPINFO;       // startup information
  lpProcessInfo: windows.PROCESS_INFORMATION // process information
): boolean; stdcall; external 'advapi32.dll';

CreateProcessWithLogonW(
  lpUsername: PWideChar;		  // user's name
  lpDomain: PWideChar; 		  // user's domain
  lpPassword: PWideChar;		  // user's password
  dwLogonFlags: DWORD;		          // logon option
  lpApplicationName: PWideChar;	  // executable module name
  lpCommandLine: PWideChar;	  // command-line string
  dwCreationFlags: DWORD;	          // creation flags
  lpEnvironment: PWideChar;	  // new environment block
  lpCurrentDirectory: PWideChar;	  // current directory name
  lpStartupInfo: windows.STARTUPINFO;	  // startup information
  lpProcessInfo: windows.PROCESS_INFORMATION // process information
): boolean; stdcall; external 'advapi32.dll';