Forum Discussion

talisker's avatar
talisker
New Contributor
8 years ago

Call and wait on a .bat file in python script

Hi,   I am using python script to invoke a .bat file on Windows. This bat file contains a call to ssh.exe:   ssh.exe user@targetserver 'some remote command'   When running the batch file, I am ...
  • AlexKaras's avatar
    AlexKaras
    8 years ago

    Hi,

     

    I believe that you are looking for something like this (DelphiScript):

    //-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------

function ReadAllFromAny(oExec : OleVariant) : string;
begin
  result := '';
  if (not oExec.StdOut.AtEndOfStream) then
  begin
    result := oExec.StdOut.ReadAll;
    exit;
  end;

  if (not oExec.StdErr.AtEndOfStream) then
  begin
    result := 'STDERR: ' + oExec.StdErr.ReadAll;
    exit;
  end;
end;
//-----------------------------------------------------------------------------

function ExecAndWaitForEnd(strProg, strArgs : string; var strOutput : string) : integer;
  const cEXEC_DELAY = 500; // time interval (in ms) when looking if spawned process have finished

  var WshShell : OleVariant;
  var oExec : OleVariant;
  var strCommand  : string;
  var allInput  : string;
begin
  result := -1;

  strProg := aqString.Trim(strProg);
  If ('"' <> aqString.GetChar(strProg, 0)) then
    strProg := aqString.Quote(strProg);

  strCommand := strProg + ' ' + strArgs;
  Log.AppendFolder('Executing: ' + strCommand, strCommand);
  try
    WshShell := Sys.OleObject('WScript.Shell');
    oExec := WshShell.Exec(strCommand);

    while (0 = oExec.Status) do
      BuiltIn.Delay(cEXEC_DELAY);

    allInput := ReadAllFromAny(oExec);

    result := oExec.ExitCode;
    strOutput := allInput;
    Log.Message(aqString.Format('Done. Exit code = %i (0x%x)', oExec.ExitCode, oExec.ExitCode), allInput);
  finally
    Log.PopLogFolder();

    oExec := nil;
    WshShell := nil;
  end;
end;
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------

     

    To use Call ExecAndWaitForEnd() function. Exit code is returned as a result of function's call and the text from console output is returned in the strOutput variable passed by reference.

AlexKaras's avatar
AlexKaras
Champion Level 3

Hi,

 

I believe that you are looking for something like this (DelphiScript):

//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------

function ReadAllFromAny(oExec : OleVariant) : string;
begin
  result := '';
  if (not oExec.StdOut.AtEndOfStream) then
  begin
    result := oExec.StdOut.ReadAll;
    exit;
  end;

  if (not oExec.StdErr.AtEndOfStream) then
  begin
    result := 'STDERR: ' + oExec.StdErr.ReadAll;
    exit;
  end;
end;
//-----------------------------------------------------------------------------

function ExecAndWaitForEnd(strProg, strArgs : string; var strOutput : string) : integer;
  const cEXEC_DELAY = 500; // time interval (in ms) when looking if spawned process have finished

  var WshShell : OleVariant;
  var oExec : OleVariant;
  var strCommand  : string;
  var allInput  : string;
begin
  result := -1;

  strProg := aqString.Trim(strProg);
  If ('"' <> aqString.GetChar(strProg, 0)) then
    strProg := aqString.Quote(strProg);

  strCommand := strProg + ' ' + strArgs;
  Log.AppendFolder('Executing: ' + strCommand, strCommand);
  try
    WshShell := Sys.OleObject('WScript.Shell');
    oExec := WshShell.Exec(strCommand);

    while (0 = oExec.Status) do
      BuiltIn.Delay(cEXEC_DELAY);

    allInput := ReadAllFromAny(oExec);

    result := oExec.ExitCode;
    strOutput := allInput;
    Log.Message(aqString.Format('Done. Exit code = %i (0x%x)', oExec.ExitCode, oExec.ExitCode), allInput);
  finally
    Log.PopLogFolder();

    oExec := nil;
    WshShell := nil;
  end;
end;
//-----------------------------------------------------------------------------
//-----------------------------------------------------------------------------

 

To use Call ExecAndWaitForEnd() function. Exit code is returned as a result of function's call and the text from console output is returned in the strOutput variable passed by reference.

talisker's avatar
talisker
New Contributor
8 years ago

Hi Alex, thank you very much for your answer.

 

For anyone looking, here's the lesser version in Python (I will add StdErr and proper error handling):

 

def ExecuteShellCommand(command):

  oShell = Sys.OleObject["WScript.Shell"]
  execution = oShell.Exec(command)
  
  while execution.Status is 0:
     aqUtils.Delay(100);

  exitCode = int(execution.ExitCode)  
  stdOut = ''

  if not execution.StdOut.AtEndOfStream: 
    stdOut = execution.StdOut.ReadAll()

  report = '***COMMAND:\n\n' + command + '\n\n***RESULT:\n\n' + stdOut
    
  if exitCode != 0:
    Log.Error(report)
  else:
    Log.Message(report)