保护模式.vbs

最新推荐文章于 2025-06-03 10:25:12 发布

weixin_30566111

最新推荐文章于 2025-06-03 10:25:12 发布

阅读量51

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/classics/p/9747154.html

本文展示了一段使用VBA进行网络设备自动化配置的代码示例，通过循环发送指令到设备，实现对光接收器的工作模式和通道选择的设置，并读取设备状态。此过程涉及了设备登录、发送多条配置指令及退出会话等操作。

Sub Main
Dim cnt
Dim delay
delay = 10000
For cnt = 0 To 80
crt.screen.Send "interface optical-receiver 0 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode combiner " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode force-channel0 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode force-channel1 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode prefer-channel0 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode prefer-channel1 " & chr(13)
crt.Sleep delay
crt.screen.Send "quit " & chr(13)
crt.Sleep delay
crt.screen.Send "display optical-node 0 " & chr(13)
crt.Sleep delay
Next
End Sub