(AutoIt) Multiple SendReqExec on Same Connection

Shows how to execute a series of commands on an SSH server and retrieve each command's output (using SendReqExec). Each call to SendReqExec requires its own logical channel. This is not a separate SSH connection -- it's simply a new session channel on the existing SSH connection.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oSsh = ObjCreate("Chilkat.Ssh")

; Hostname may be an IP address or domain:
Local $sHostname = "172.16.16.46"
Local $iPort = 22

Local $bSuccess = $oSsh.Connect($sHostname,$iPort)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; If receiving output from a command stalls for more than 5 seconds, then stop waiting.
$oSsh.IdleTimeoutMs = 5000

; Authenticate using login/password:
$bSuccess = $oSsh.AuthenticatePw("myLogin","myPassword")
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Open a session channel.  (It is possible to have multiple
; session channels open simultaneously.)
Local $iChannelNum = $oSsh.OpenSessionChannel()
If ($iChannelNum < 0) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Request a directory listing on the remote server:
; If your server is Linux/UNIX, change the string from "dir" to "ls"
; Note: Some SSH servers require a CRLF instead of a bare-LF
Local $sCmd = "ls -al" & @LF
$bSuccess = $oSsh.SendReqExec($iChannelNum,$sCmd)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Read whatever output may already be available on the
; SSH connection.  ChannelReadAndPoll returns the number of bytes
; that are available in the channel's internal buffer that
; are ready to be "picked up" by calling GetReceivedText
; or GetReceivedData.
; A return value of -1 indicates failure.
; A return value of -2 indicates a failure via timeout.

; The ChannelReadAndPoll method waits
; for data to arrive on the connection usingi the IdleTimeoutMs
; property setting.  Once the first data arrives, it continues
; reading but instead uses the pollTimeoutMs passed in the 2nd argument:
; A return value of -2 indicates a timeout where no data is received.
Local $iPollTimeoutMs = 2000
Local $iN = $oSsh.ChannelReadAndPoll($iChannelNum,$iPollTimeoutMs)
If ($iN < 0) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Close the channel:
$bSuccess = $oSsh.ChannelSendClose($iChannelNum)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Perhaps we did not receive all of the commands output.
; To make sure,  call ChannelReceiveToClose to accumulate any remaining
; output until the server's corresponding "channel close" is received.
$bSuccess = $oSsh.ChannelReceiveToClose($iChannelNum)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Get the accumulated output of the command:
Local $sCmdOutput
$sCmdOutput = $oSsh.GetReceivedText($iChannelNum,"ansi")
If ($oSsh.LastMethodSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

; Display the remote shell's command output:
ConsoleWrite($sCmdOutput & @CRLF)
ConsoleWrite("----" & @CRLF)

; -----------------------------------------------------------------
; Now for the 2nd SendReqExe (on the same connection,
; but on a separate logical channel).
; -----------------------------------------------------------------

$iChannelNum = $oSsh.OpenSessionChannel()
If ($iChannelNum < 0) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$sCmd = "nslookup chilkatsoft.com" & @LF
$bSuccess = $oSsh.SendReqExec($iChannelNum,$sCmd)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$iPollTimeoutMs = 2000
$iN = $oSsh.ChannelReadAndPoll($iChannelNum,$iPollTimeoutMs)
If ($iN < 0) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oSsh.ChannelSendClose($iChannelNum)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oSsh.ChannelReceiveToClose($iChannelNum)
If ($bSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

$sCmdOutput = $oSsh.GetReceivedText($iChannelNum,"ansi")
If ($oSsh.LastMethodSuccess = False) Then
    ConsoleWrite($oSsh.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($sCmdOutput & @CRLF)