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.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  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.

set ssh = CreateObject("Chilkat.Ssh")

port = 22
success = ssh.Connect("172.16.16.100",port)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  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 = ssh.AuthenticatePw("mySshLogin",password)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

channelNum = ssh.QuickShell()
If (channelNum < 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  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.
ssh.ReadTimeoutMs = 15000

caseSensitive = 1

'  In unprivileged mode the switch prompt ends with ">".
success = ssh.ChannelReceiveUntilMatch(channelNum,">","utf-8",caseSensitive)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

received = ssh.GetReceivedText(channelNum,"utf-8")
If (ssh.LastMethodSuccess = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(received)

'  Send "ena" to enter privileged mode.  Cisco devices expect a bare CR to terminate a command.
success = ssh.ChannelSendString(channelNum,"ena" & vbCr,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

success = ssh.ChannelReceiveUntilMatch(channelNum,"Password:","utf-8",caseSensitive)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

received = ssh.GetReceivedText(channelNum,"utf-8")
If (ssh.LastMethodSuccess = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(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 = ssh.ChannelSendString(channelNum,enablePassword,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

success = ssh.ChannelSendString(channelNum,vbCr,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  In privileged mode the prompt ends with "#" instead of ">".
success = ssh.ChannelReceiveUntilMatch(channelNum,"#","utf-8",caseSensitive)
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

received = ssh.GetReceivedText(channelNum,"utf-8")
If (ssh.LastMethodSuccess = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(received)

'  Run a command whose output is delivered a page at a time.
success = ssh.ChannelSendString(channelNum,"show running-config" & vbCr,"utf-8")
If (success = 0) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

'  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.
set saMatch = CreateObject("Chilkat.StringArray")
success = saMatch.Append("MySwitchName#")
success = saMatch.Append("--More--")

set sbReceived = CreateObject("Chilkat.StringBuilder")
moreComing = 1

Do While moreComing
    success = ssh.ChannelReceiveUntilMatchN(channelNum,saMatch,"utf-8",caseSensitive)
    If (success = 0) Then
        outFile.WriteLine(ssh.LastErrorText)
        WScript.Quit
    End If

    sbReceived.Clear 
    pageText = ssh.GetReceivedText(channelNum,"utf-8")
    If (ssh.LastMethodSuccess = 0) Then
        outFile.WriteLine(ssh.LastErrorText)
        WScript.Quit
    End If

    success = sbReceived.Append(pageText)
    outFile.WriteLine(pageText)

    '  If this page ended with "--More--", send a SPACE to request the next page.
    moreComing = sbReceived.Contains("--More--",caseSensitive)
    If (moreComing) Then
        success = ssh.ChannelSendString(channelNum," ","utf-8")
        If (success = 0) Then
            outFile.WriteLine(ssh.LastErrorText)
            WScript.Quit
        End If

    End If

Loop

ssh.Disconnect 

outFile.Close