Delphi ActiveX

SSH Parallel Remote Commands on Multiple Servers

See more SSH Examples

Shows how to execute a command in parallel on multiple servers. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
ssh1: TChilkatSsh;
ssh2: TChilkatSsh;
ssh3: TChilkatSsh;
port: Integer;
cmd: WideString;
ssh1Channel: Integer;
ssh2Channel: Integer;
ssh3Channel: Integer;
pollTimeoutMs: Integer;
numFinished: Integer;
channel: Integer;
ssh1Finished: Integer;
ssh2Finished: Integer;
ssh3Finished: Integer;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// Executing a command on multiple servers simultaneously is straightforward.
// It's just a matter of using one SSH object per server..
ssh1 := TChilkatSsh.Create(Self);
ssh2 := TChilkatSsh.Create(Self);
ssh3 := TChilkatSsh.Create(Self);

port := 22;
success := ssh1.Connect('ssh-server1.com',port);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh1.LastErrorText);
    Exit;
  end;

// Authenticate using login/password:
success := ssh1.AuthenticatePw('sshLogin1','sshPassword1');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh1.LastErrorText);
    Exit;
  end;

// Connect and authenticate with 2 more servers.
// For brevity, the success/failure won't be checked...
success := ssh2.Connect('ssh-server2.com',port);
success := ssh2.AuthenticatePw('sshLogin2','sshPassword2');
success := ssh3.Connect('ssh-server3.com',port);
success := ssh3.AuthenticatePw('sshLogin3','sshPassword3');

// Note: If we wanted, we could've used ConnectAsync and AuthenticatePwAsync
// to do the connecting and authenticating in parallel...

// The command to be run on each SSH server will sleep for 5 seconds,
// and then show the current system date/time.
cmd := 'sleep 5; date';

// Start each command
ssh1Channel := ssh1.QuickCmdSend(cmd);
if (ssh1Channel < 0) then
  begin
    Memo1.Lines.Add(ssh1.LastErrorText);
    Exit;
  end;
// For brevity, we're not checking the return values here:
ssh2Channel := ssh2.QuickCmdSend(cmd);
ssh3Channel := ssh3.QuickCmdSend(cmd);

// OK, at this point the command is running simultaneously on each server.

// Now collect the results of each command.
pollTimeoutMs := 50;
numFinished := 0;

// Note: You would rewrite this code to use arrays.
ssh1Finished := 0;
ssh2Finished := 0;
ssh3Finished := 0;
while numFinished < 3 do
  begin
    // Check to see if anything has finished.
    // QuickCmdCheck returns -1 if there are no errors and nothing else finished
    // QuickCmdCheck returns -2 if there was an error (such as a lost connection)
    // QuickCmdCheck returns a channel number if a channel finished.
    if (ssh1Finished <> 1) then
      begin
        channel := ssh1.QuickCmdCheck(pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(ssh1.LastErrorText);
            Exit;
          end;
        if (channel = ssh1Channel) then
          begin
            Memo1.Lines.Add('---- ssh1 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(ssh1.GetReceivedText(channel,'ansi'));
            numFinished := numFinished + 1;
            ssh1Finished := 1;
          end;
      end;
    if (ssh2Finished <> 1) then
      begin
        channel := ssh2.QuickCmdCheck(pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(ssh2.LastErrorText);
            Exit;
          end;
        if (channel = ssh2Channel) then
          begin
            Memo1.Lines.Add('---- ssh2 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(ssh2.GetReceivedText(channel,'ansi'));
            numFinished := numFinished + 1;
            ssh2Finished := 1;
          end;
      end;
    if (ssh3Finished <> 1) then
      begin
        channel := ssh3.QuickCmdCheck(pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(ssh3.LastErrorText);
            Exit;
          end;
        if (channel = ssh3Channel) then
          begin
            Memo1.Lines.Add('---- ssh3 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(ssh3.GetReceivedText(channel,'ansi'));
            numFinished := numFinished + 1;
            ssh3Finished := 1;
          end;
      end;

  end;

// --------------
// Sample output:

// 	---- ssh2 channel 101 finished ----
// 	Fri Dec 23 00:25:48 UTC 2016
// 
// 	---- ssh3 channel 102 finished ----
// 	Thu Dec 22 18:25:12 CST 2016
// 
// 	---- ssh1 channel 100 finished ----
// 	Thu Dec 22 18:25:48 CST 2016
end;