Close an SSH Tunnel

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshCloseTunnel, which closes the SSH tunnel opened by SshOpenTunnel and terminates its forwarded channels.

Local $bSuccess = False

$oSocket = ObjCreate("Chilkat.Socket")

;  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
;  not required.
$bSuccess = $oSocket.SshOpenTunnel("ssh.example.com",22)
If ($bSuccess = False) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

;  Authenticate the SSH session before opening forwarded channels.
;  The SSH password should come from a secure source rather than being hard-coded.
Local $sshPassword = "mySshPassword"
$bSuccess = $oSocket.SshAuthenticatePw("sshUser",$sshPassword)
If ($bSuccess = False) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

;  Close the SSH tunnel and terminate its forwarded channels.  This does not affect unrelated SSH
;  objects or connections.
$bSuccess = $oSocket.SshCloseTunnel()
If ($bSuccess = False) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("SSH tunnel closed." & @CRLF)