J'ai Créer une class SSH et y est ajouter la référence vers "SSH.NET .NET 4.0" ou plus simplement "Renci.SshNet"
Mon problème est que de cette manière dans certain cas je n'est pas de réponse ou des commande ne s’exécute pas comme par exemple :
la commande "ls -l" sur Raspberry Fonctionne mais la commande "cd dossier" ne retourne aucune réponse donc j'aimerais savoir si il y a une solution pour obtenir une réponse serveur à coup sur sachant que je communique avec un raspberry
La Class
Imports Renci.SshNet
Public Class maclassessh
Private _Adresse_Serveur As String = ""
Private _Utilisateur_SSH As String = ""
Private _MDP_SSH As String = ""
Private _Port_Serveur As Integer = 0
Private _SSHClient As SshClient
Private _Message_Erreur As String = ""
Sub New()
End Sub
Sub New(ByVal Adresse_Serveur As String, ByVal Utilisateur_SSH As String, ByVal MDP_SSH As String, Optional ByVal Port_Serveur As Integer = 22)
Me.New
_Adresse_Serveur = Adresse_Serveur
_Utilisateur_SSH = Utilisateur_SSH
_MDP_SSH = MDP_SSH
_Port_Serveur = Port_Serveur
End Sub
Public Function Init() As Boolean
Dim InfoConnexion As PasswordConnectionInfo
Try
InfoConnexion = New PasswordConnectionInfo(_Adresse_Serveur, _Port_Serveur, _Utilisateur_SSH, _MDP_SSH)
_SSHClient = New SshClient(InfoConnexion)
_SSHClient.Connect()
Return True
Catch ex As Exception
_Message_Erreur = ex.Message
Return False
End Try
End Function
Public Function Erreur() As String
Return _Message_Erreur
End Function
Public Sub Conection()
_SSHClient.Connect()
End Sub
Public Sub Deconnection()
_SSHClient.Disconnect()
End Sub
Public Function Requete(ByVal Commande As String) As String
Dim Requeteur As SshCommand
Try
Requeteur = _SSHClient.RunCommand(Commande)
Return Requeteur.Result
Catch ex As Exception
Return ex.Message
End Try
'cmdnumber.Result.Replace(Microsoft.VisualBasic.Constants.vbLf, Microsoft.VisualBasic.Constants.vbNewline) 'Remplacer newline linux par new line windows
'Return _SSHClient.CreateCommand(Commande).Execute()
End Function
Public Function Etat() As String
Return _SSHClient.IsConnected
End Function
End Class
Et si possible une explication sur la Sécurité ce qui doit être le Shell je suppose
- Edité par Thomas_59 16 janvier 2020 à 16:15:50
Utilisation de SSH en VB.NET
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.