(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Ssh
integer li_Success
integer li_ChannelNum

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

loo_Ssh = create oleobject
// Use "Chilkat_9_5_0.Ssh" for versions of Chilkat < 10.0.0
li_rc = loo_Ssh.ConnectToNewObject("Chilkat.Ssh")
if li_rc < 0 then
    destroy loo_Ssh
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Ssh.Connect("172.16.16.16",22)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// Authenticate using login/password:
li_Success = loo_Ssh.AuthenticatePw("myLogin","myPassword")
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// Start a shell session.
// (The QuickShell method was added in Chilkat v9.5.0.65)
li_ChannelNum = loo_Ssh.QuickShell()
if li_ChannelNum < 0 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// 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]: 

li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"Select Menu Number","utf-8",1)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// Show what we received so far:
Write-Debug loo_Ssh.GetReceivedText(li_ChannelNum,"utf-8")

// Send "4" <RETURN> to mimic typing in a shell session.
li_Success = loo_Ssh.ChannelSendString(li_ChannelNum,"4~n","utf-8")
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// We should get a "console>" prompt.
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"console>","utf-8",1)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

Write-Debug loo_Ssh.GetReceivedText(li_ChannelNum,"utf-8")

// Send a command and get the output..
li_Success = loo_Ssh.ChannelSendString(li_ChannelNum,"dnslookup host google.com~n","utf-8")
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"console>","utf-8",1)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

Write-Debug loo_Ssh.GetReceivedText(li_ChannelNum,"utf-8")

// Send another command and get the output, and so on...
li_Success = loo_Ssh.ChannelSendString(li_ChannelNum,"dnslookup host microsoft.com~n","utf-8")
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"console>","utf-8",1)
if li_Success <> 1 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

Write-Debug loo_Ssh.GetReceivedText(li_ChannelNum,"utf-8")

loo_Ssh.Disconnect()


destroy loo_Ssh