ارتباط با روتر در وی بی دات نت

[پرستو پارسایی]

لازم به ذکر است که حتما باید پیش از اجرای کد، کتابخانه SSH.NET را از NuGet در پروژه خود نصب کنید

Imports Renci.SshNet

Public Class MainForm


Private Sub btnConfigure_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConfigure.Click
' ایجاد شیء SSH و اتصال به سوئیچ با استفاده از آدرس IP، نام کاربری و رمزعبور
Dim sshClient As New SshClient("آدرس_IP_سوئیچ", "نام_کاربری", "رمزعبور")
sshClient.Connect()


' ایجاد دستور پیکربندی و ارسال دستورات به سوئیچ
Dim cmd = sshClient.CreateCommand()
cmd.CommandText = "configure terminal" & vbNewLine &
"interface GigabitEthernet1/1" & vbNewLine &
"switchport port-security" & vbNewLine &
"switchport port-security mac-address 0011.2233.4455" & vbNewLine &
"switchport port-security maximum 2" & vbNewLine &
"switchport port-security violation shutdown" & vbNewLine &
"exit" & vbNewLine &
"exit" & vbNewLine &
"write memory" & vbNewLine


' اجرای دستورات پیکربندی
Dim result = cmd.Execute()


' قطع اتصال SSH
sshClient.Disconnect()
End Sub


End Class