'  This example assumes Chilkat SSH/SFTP to have been previously unlocked.
'  See Unlock SSH for sample code.

Dim ssh As New Chilkat.Ssh

Dim port As Integer = 22
Dim success As Boolean = ssh.Connect("the-ssh-server.com",port)
If (success <> True) Then
    Console.WriteLine(ssh.LastErrorText)
    Exit Sub
End If


'  Authenticate using login/password:
success = ssh.AuthenticatePw("theSshLogin","theSshPassword")
If (success <> True) Then
    Console.WriteLine(ssh.LastErrorText)
    Exit Sub
End If


'  Send some commands and get the output.
Dim strOutput As String = ssh.QuickCommand("df","ansi")
If (ssh.LastMethodSuccess <> True) Then
    Console.WriteLine(ssh.LastErrorText)
    Exit Sub
End If

Console.WriteLine("---- df ----")
Console.WriteLine(strOutput)

strOutput = ssh.QuickCommand("echo hello world","ansi")
If (ssh.LastMethodSuccess <> True) Then
    Console.WriteLine(ssh.LastErrorText)
    Exit Sub
End If

Console.WriteLine("---- echo hello world ----")
Console.WriteLine(strOutput)

strOutput = ssh.QuickCommand("date","ansi")
If (ssh.LastMethodSuccess <> True) Then
    Console.WriteLine(ssh.LastErrorText)
    Exit Sub
End If

Console.WriteLine("---- date ----")
Console.WriteLine(strOutput)

'  --------------
'  Sample output:

'   ---- df ----
'   Filesystem    512-blocks      Used  Available Capacity  iused     ifree %iused  Mounted on
'   /dev/disk2    2176716032 265736304 1910467728    13% 33281036 238808466   12%   /
'   devfs                382       382          0   100%      662         0  100%   /dev
'   map -hosts             0         0          0   100%        0         0  100%   /net
'   map auto_home          0         0          0   100%        0         0  100%   /home
'   /dev/disk3s2      374668    374668          0   100%    93665         0  100%   /Volumes/Google Chrome
'
'   ---- echo hello world ----
'   hello world
'
'   ---- date ----
'   Thu Dec 22 17:19:32 CST 2016