(Tcl) SSH Commands to Sophos Router Device Console

Demonstrates how to establish an SSH session with a Sophos XG router 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.16" 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.
# (The QuickShell method was added in Chilkat v9.5.0.65)
set channelNum [CkSsh_QuickShell $ssh]
if {$channelNum < 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# The Sophos router will send this initial prompt:

# 	Main Menu
# 
# 	    1.  Network  Configuration
# 	    2.  System   Configuration
# 	    3.  Route    Configuration
# 	    4.  Device Console
# 	    5.  Device Management
# 	    6.  VPN Management
# 	    7.  Shutdown/Reboot Device
# 	    0.  Exit
# 
# 	    Select Menu Number [0-7]: 

set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "Select Menu Number" "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 "4" <RETURN> to mimic typing in a shell session.
set success [CkSsh_ChannelSendString $ssh $channelNum "4\n" "utf-8"]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

# We should get a "console>" prompt.
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "console>" "utf-8" 1]
if {$success != 1} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts [CkSsh_getReceivedText $ssh $channelNum utf-8]

# Send a command and get the output..
set success [CkSsh_ChannelSendString $ssh $channelNum "dnslookup host google.com\n" "utf-8"]
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "console>" "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 "dnslookup host microsoft.com\n" "utf-8"]
set success [CkSsh_ChannelReceiveUntilMatch $ssh $channelNum "console>" "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