用vbs脚本远程登录交换机的配置

好的，以下是一个简单的 VBS 脚本示例，可以通过 Telnet 远程登录交换机并执行配置命令：

' 定义需要登录交换机的 IP 地址和端口号
strIP = "192.168.1.1"
intPort = 23

' 定义登录交换机需要的用户名和密码
strUsername = "admin"
strPassword = "password"

' 定义需要执行的配置命令
strCommand = "configure terminal" & vbCrLf & "interface GigabitEthernet1/0/1" & vbCrLf & "description Test Port" & vbCrLf & "end" & vbCrLf

' 创建 Telnet 对象
Set objTelnet = CreateObject("WScript.Shell")

' 连接到交换机
objTelnet.Run "telnet.exe " & strIP & " " & intPort, 1, True

' 等待登录提示符
Do Until objTelnet.StdOut.AtEndOfStream Or InStr(objTelnet.StdOut.ReadLine, "Username:") > 0
Loop

' 输入用户名
objTelnet.StdIn.WriteLine strUsername

' 等待密码提示符
Do Until objTelnet.StdOut.AtEndOfStream Or InStr(objTelnet.StdOut.ReadLine, "Password:") > 0
Loop

' 输入密码
objTelnet.StdIn.WriteLine strPassword

' 等待登录成功提示符
Do Until objTelnet.StdOut.AtEndOfStream Or InStr(objTelnet.StdOut.ReadLine, ">") > 0
Loop

' 执行配置命令
objTelnet.StdIn.WriteLine strCommand

' 退出 Telnet
objTelnet.StdIn.WriteLine "exit"

请注意，这是一个简单的示例脚本，可能需要根据您的具体情况进行适当的修改和调整。