(PowerBuilder) 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 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.100",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.
li_ChannelNum = loo_Ssh.QuickShell()
if li_ChannelNum < 0 then
    Write-Debug loo_Ssh.LastErrorText
    destroy loo_Ssh
    return
end if

// 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..)
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"#","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 a "show clock" command.
li_Success = loo_Ssh.ChannelSendString(li_ChannelNum,"show clock~n","utf-8")

// Read the output to the next interactive prompt.
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"#","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,"some other command~n","utf-8")
li_Success = loo_Ssh.ChannelReceiveUntilMatch(li_ChannelNum,"#","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