SSH to a Cisco Switch - Processing "More" Responses

See more SSH Examples

Demonstrates connecting to a Cisco switch, entering privileged mode with the ena command, and running a command whose response is paged. Each page ends with --More-- and requires a SPACE character to request the next page.

Note: QuickShell allocates a PTY, which is what a network device console expects. The device presents an interactive prompt, and each command's output is read up to the next prompt.

var
success: Boolean;
ssh: HCkSsh;
port: Integer;
password: PWideChar;
channelNum: Integer;
caseSensitive: Boolean;
received: PWideChar;
enablePassword: PWideChar;
saMatch: HCkStringArray;
sbReceived: HCkStringBuilder;
moreComing: Boolean;
pageText: PWideChar;

begin
success := False;

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

//  Demonstrates connecting to a Cisco switch, entering privileged mode, and running a command
//  whose response is paged -- each page ends with "--More--" and requires a SPACE character to
//  request the next page.

ssh := CkSsh_Create();

port := 22;
success := CkSsh_Connect(ssh,'172.16.16.100',port);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
password := 'mySshPassword';

success := CkSsh_AuthenticatePw(ssh,'mySshLogin',password);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

channelNum := CkSsh_QuickShell(ssh);
if (channelNum < 0) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

//  IMPORTANT: Set a read timeout before receiving until a match.  ReadTimeoutMs defaults to 0,
//  which means no limit -- without it, this call waits forever if the received data never
//  contains a match.
CkSsh_putReadTimeoutMs(ssh,15000);

caseSensitive := True;

//  In unprivileged mode the switch prompt ends with ">".
success := CkSsh_ChannelReceiveUntilMatch(ssh,channelNum,'>','utf-8',caseSensitive);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

received := CkSsh__getReceivedText(ssh,channelNum,'utf-8');
if (CkSsh_getLastMethodSuccess(ssh) = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
Memo1.Lines.Add(received);

//  Send "ena" to enter privileged mode.  Cisco devices expect a bare CR to terminate a command.
success := CkSsh_ChannelSendString(ssh,channelNum,'ena' + #13,'utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

success := CkSsh_ChannelReceiveUntilMatch(ssh,channelNum,'Password:','utf-8',caseSensitive);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

received := CkSsh__getReceivedText(ssh,channelNum,'utf-8');
if (CkSsh_getLastMethodSuccess(ssh) = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
Memo1.Lines.Add(received);

//  The enable password is separate from the login password, and likewise should come from a
//  secure source rather than being hard-coded.
enablePassword := 'myEnablePassword';
success := CkSsh_ChannelSendString(ssh,channelNum,enablePassword,'utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
success := CkSsh_ChannelSendString(ssh,channelNum,#13,'utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

//  In privileged mode the prompt ends with "#" instead of ">".
success := CkSsh_ChannelReceiveUntilMatch(ssh,channelNum,'#','utf-8',caseSensitive);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

received := CkSsh__getReceivedText(ssh,channelNum,'utf-8');
if (CkSsh_getLastMethodSuccess(ssh) = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;
Memo1.Lines.Add(received);

//  Run a command whose output is delivered a page at a time.
success := CkSsh_ChannelSendString(ssh,channelNum,'show running-config' + #13,'utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

//  Each read ends either at the device prompt (output complete) or at "--More--" (another page
//  is waiting).  Match the full prompt rather than a bare "#", because "#" also appears inside
//  configuration text and would match too early.
saMatch := CkStringArray_Create();
CkStringArray_Append(saMatch,'MySwitchName#');
CkStringArray_Append(saMatch,'--More--');

sbReceived := CkStringBuilder_Create();
moreComing := True;

while moreComing do
  begin
    success := CkSsh_ChannelReceiveUntilMatchN(ssh,channelNum,saMatch,'utf-8',caseSensitive);
    if (success = False) then
      begin
        Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
        Exit;
      end;

    CkStringBuilder_Clear(sbReceived);
    pageText := CkSsh__getReceivedText(ssh,channelNum,'utf-8');
    if (CkSsh_getLastMethodSuccess(ssh) = False) then
      begin
        Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
        Exit;
      end;
    CkStringBuilder_Append(sbReceived,pageText);
    Memo1.Lines.Add(pageText);

    //  If this page ended with "--More--", send a SPACE to request the next page.
    moreComing := CkStringBuilder_Contains(sbReceived,'--More--',caseSensitive);
    if (moreComing) then
      begin
        success := CkSsh_ChannelSendString(ssh,channelNum,' ','utf-8');
        if (success = False) then
          begin
            Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
            Exit;
          end;
      end;
  end;

CkSsh_Disconnect(ssh);

CkSsh_Dispose(ssh);
CkStringArray_Dispose(saMatch);
CkStringBuilder_Dispose(sbReceived);