Sub Main

Dim cnte
Dim cnt
Dim delay
Dim time
Dim onetime
onetime = 9999999
delay = 5000
time = 700
For cnte = 0 To onetime
crt.screen.Send "quit " & Chr(10) & chr(13)
crt.Sleep delay
crt.screen.Send "quit " & chr(13)
crt.Sleep 500
crt.screen.Send "y " & chr(13)
crt.Sleep delay
crt.screen.Send "12" & chr(13)
crt.Sleep delay
crt.screen.Send "root" & chr(13)
crt.Sleep delay
crt.screen.Send "admin123" & chr(13)
crt.Sleep delay
crt.screen.Send "enable " & chr(13)
crt.Sleep delay
crt.screen.Send "config " & chr(13)
crt.Sleep delay
For cnt = 0 To time
crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
crt.Sleep delay
Next
Next
End Sub

CMC+混頻v103測試（scrt，vbs文件）