Connexion SSH à un serveur VPS à l'aide de Renci.SshNet

A force d'essayer j'ai trouvé ce qui ne convenait pas: le Username ne doit pas être "root@vps6xxxx.lws-hosting.com" mais simplement "root"
Le code corrigé complet:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Public Function TestConnexionSql() As Boolean
        Dim test As Boolean = False
        Try
            Dim myServerAddress As String = "185.XX.XXX.XXX"
            Dim usernameSsh As String = "root"
            Dim passwordSsh As String = "XXXXXXXD"
            Dim portSsh As Integer = 22
            Dim myDataBase As String = "c0DB"
            Dim usernameSql As String = "c0moi"
            Dim passwordSql As String = "wxxxxxx4"
            Dim portSql As Integer = 3306
 
            Dim pam As PasswordAuthenticationMethod = New PasswordAuthenticationMethod(usernameSsh, passwordSsh)
 
            Dim ci As ConnectionInfo =
             New ConnectionInfo(myServerAddress, portSsh, usernameSsh, pam)
            With ci
                .Timeout = TimeSpan.FromSeconds(30)
            End With
 
            Using client As SshClient = New SshClient(ci)
 
                AddHandler client.HostKeyReceived, AddressOf CanTrustTrue
 
                client.Connect()
 
                If client.IsConnected = True Then
 
                    Using portFwld As ForwardedPortLocal = New ForwardedPortLocal("127.0.0.1", CType(portSql, UInteger), "127.0.0.1", CType(portSql, UInteger))
 
                        client.AddForwardedPort(portFwld)
                        portFwld.Start()
                        If portFwld.IsStarted Then
                            Dim ConnectionString As String = "SERVER=" & "127.0.0.1" &
                             ";PORT=" & CStr(portSql) &
                             ";DATABASE=" & myDataBase &
                             ";UID=" & usernameSql &
                             ";PASSWORD=" & passwordSql & ";"
                            Using conn As MySqlConnection = New MySqlConnection(ConnectionString)
                                conn.Open()
 
                                test = True
 
                            End Using
                            portFwld.Stop()
                        Else
                            test = False
                        End If
                    End Using
                    client.Disconnect()
                Else
                    test = False
                End If
            End Using
 
            Return test
 
        Catch ex As Exception
            MsgBox(ex.Message & Chr(10) & ex.StackTrace)
            Return False
        End Try
    End Function