(Tcl) SSH Commands to Cisco Switch

Demonstrates how to establish an SSH session with a Cisco switch (or something similar) and send commands in a device console session.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ssh [new_CkSsh]

set success [CkSsh_Connect $ssh "172.16.16.100" 22]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# Authenticate using login/password:
set success [CkSsh_AuthenticatePw $ssh "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# Start a shell session.
set channelNum [CkSsh_QuickShell $ssh]
if {$channelNum < 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# If the CISCO switch returns a prompt with "#", then read until we get the prompt.
# (It's not actually required that we do this, but it helps to know that all is OK at this point..)
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "#" "utf-8" 1]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# Show what we received so far:
puts [CkSsh_getReceivedText $ssh $channelNum utf-8]

# Send a "show clock" command.
set success [CkSsh_ChannelSendString $ssh $channelNum "show clock\n" "utf-8"]

# Read the output to the next interactive prompt.
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "#" "utf-8" 1]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts [CkSsh_getReceivedText $ssh $channelNum utf-8]

# Send another command and get the output, and so on...
set success [CkSsh_ChannelSendString $ssh $channelNum "some other command\n" "utf-8"]
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "#" "utf-8" 1]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts [CkSsh_getReceivedText $ssh $channelNum utf-8]

CkSsh_Disconnect $ssh

delete_CkSsh $ssh