Private Sub Backup()
        Try
            Dim output As String
            Dim sshExec As SshExec
            Dim MyPath As String
            MyPath = CurDir()
            Dim procinfo As String = "/usr/bin/procinfo"
            Dim command As String = "if [ -f " + procinfo + " ]; then" + Chr( _
              10) + _
                                        "export TERM=linux && " + procinfo + "" & _
                                        "-a | cat - > /tmp/" & IP.ToString & _
                                        ".txt;" + Chr(10) + _
                                     "else" + Chr(10) + _
                                        "echo ERROR: " + procinfo + " not" & _
                                        "found." + Chr(10) + _
                                     "fi;" + Chr(10)
            sshExec = New SshExec(IP, User, Pass)
            MsgBox("Connecting to " + IP.ToString + " ...")
            sshExec.Connect()
            MsgBox("Connected? " + sshExec.Connected.ToString)
            output = sshExec.RunCommand(command)
            sshExec.Close()
 
            Dim sshCp As SshTransferProtocolBase
            sshCp = New Scp(IP, User)
            sshCp.Password = Pass
            sshCp.Connect()
            Dim rfile As String = "/tmp/" + IP.ToString + ".txt""
            Dim lpath As String = "" & MyPath
            sshCp.Get(rfile, lpath)
            sshCp.Close()
            sshExec.Close()
        Catch ex As Exception
            MsgBox("Fehler: " + ex.ToString)
        End Try
    End Sub

    Private Sub Backup()
        Try
            Dim output As String
            Dim sshExec As SshExec
            Dim MyPath As String
            MyPath = CurDir()
            Dim tar As String = "tar –cvf test.tar /test123/"
            Dim command As String = tar + Chr(10)
 
            sshExec = New SshExec(IP, User, Pass)
            MsgBox("Connecting to " + IP.ToString + " ...")
            sshExec.Connect()
            MsgBox("Connected? " + sshExec.Connected.ToString)
            output = sshExec.RunCommand(command)
            sshExec.Close()
 
            Dim sshCp As SshTransferProtocolBase
            sshCp = New Scp(IP, User)
            sshCp.Password = Pass
            sshCp.Connect()
            Dim rfile As String = "/test.tar"
            Dim lpath As String = "" & MyPath
            sshCp.Get(rfile, lpath)
            sshCp.Close()
            sshExec.Close()
        Catch ex As Exception
            MsgBox("Fehler: " + ex.ToString)
        End Try
    End Sub