پرستو پارسایی
چهارشنبه 13 اردیبهشت 1402, 20:28 عصر
توجه داشته باشید قبل از اجرای کد باید کتابخانه TcpClient را به پروژه خود اضافه کنید
Dim IOScommands As String() = {"interface GigabitEthernet1/1", "switchport port-security",
"switchport port-security mac-address 0011.2233.4455",
"switchport port-security maximum 2",
"switchport port-security violation shutdown",
"exit",
"exit",
"write memory"}
Dim DeviceIP As String = "192.168.1.1"
Dim TelnetUser As String = "username"
Dim TelnetPass As String = "password"
Dim MyTelnet As New System.Net.Sockets.TcpClient(DeviceIP, 23)
Dim TelnetStream As NetworkStream = MyTelnet.GetStream()
Dim TelnetReader As New StreamReader(TelnetStream)
Dim TelnetWriter As New StreamWriter(TelnetStream)
TelnetWriter.WriteLine(TelnetUser)
TelnetWriter.Flush()
TelnetWriter.WriteLine(TelnetPass)
TelnetWriter.Flush()
For Each cmd As String In IOScommands
TelnetWriter.WriteLine(cmd)
TelnetWriter.Flush()
System.Threading.Thread.Sleep(500)
Next
TelnetWriter.WriteLine("exit")
TelnetWriter.Flush()
TelnetWriter.Close()
TelnetReader.Close()
MyTelnet.Close()
Dim IOScommands As String() = {"interface GigabitEthernet1/1", "switchport port-security",
"switchport port-security mac-address 0011.2233.4455",
"switchport port-security maximum 2",
"switchport port-security violation shutdown",
"exit",
"exit",
"write memory"}
Dim DeviceIP As String = "192.168.1.1"
Dim TelnetUser As String = "username"
Dim TelnetPass As String = "password"
Dim MyTelnet As New System.Net.Sockets.TcpClient(DeviceIP, 23)
Dim TelnetStream As NetworkStream = MyTelnet.GetStream()
Dim TelnetReader As New StreamReader(TelnetStream)
Dim TelnetWriter As New StreamWriter(TelnetStream)
TelnetWriter.WriteLine(TelnetUser)
TelnetWriter.Flush()
TelnetWriter.WriteLine(TelnetPass)
TelnetWriter.Flush()
For Each cmd As String In IOScommands
TelnetWriter.WriteLine(cmd)
TelnetWriter.Flush()
System.Threading.Thread.Sleep(500)
Next
TelnetWriter.WriteLine("exit")
TelnetWriter.Flush()
TelnetWriter.Close()
TelnetReader.Close()
MyTelnet.Close()