保护模式.vbs

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