(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

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

loSsh = createobject("CkSsh")

llSuccess = loSsh.Connect("172.16.16.100",22)
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// Authenticate using login/password:
llSuccess = loSsh.AuthenticatePw("myLogin","myPassword")
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// Start a shell session.
lnChannelNum = loSsh.QuickShell()
if (lnChannelNum < 0) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// 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..)
llSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"#","utf-8",.T.)
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

// Show what we received so far:
? loSsh.GetReceivedText(lnChannelNum,"utf-8")

// Send a "show clock" command.
llSuccess = loSsh.ChannelSendString(lnChannelNum,"show clock" + Chr(10),"utf-8")

// Read the output to the next interactive prompt.
llSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"#","utf-8",.T.)
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

? loSsh.GetReceivedText(lnChannelNum,"utf-8")

// Send another command and get the output, and so on...
llSuccess = loSsh.ChannelSendString(lnChannelNum,"some other command" + Chr(10),"utf-8")
llSuccess = loSsh.ChannelReceiveUntilMatch(lnChannelNum,"#","utf-8",.T.)
if (llSuccess <> .T.) then
    ? loSsh.LastErrorText
    release loSsh
    return
endif

? loSsh.GetReceivedText(lnChannelNum,"utf-8")

loSsh.Disconnect()


release loSsh