Sub Main
Dim CNT
Dim delay
Dim time
Dim Atttime
Atttime = 20
Delay = 3000
Time = 50
Crt.screen.Send "root" & Chr (13)
Crt. Sleep delay
Crt.screen.Send "admin123" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Enable" & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr & Chr (13)
Crt. Sleep delay
For cnt = 0 to TIME
Crt.screen.Send "Optical-node workmode 0 1rx2tx" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node system parameter 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Next
Crt.screen.Send "root" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "admin123" & Chr & CHR & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Enable" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr & Chr (All) & Chr & Chr (13)
Crt. Sleep delay
Crt. Sleep delay
For cnt = 0 to TIME
Crt.screen.Send "interface optical-receiver 0" & Chr (Ten) & Chr (13)
Crt.screen.Send "RF Power threshold 0 5" & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Optical power threshold-8 2" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Optical AGC mode on range minus4to2dbm" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-receiver Run Info" & CHR & CHR & Chr (All) & Chr & Chr (13) & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display optical-receiver system parameter" & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "RF output switch on" & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "RF output switch Off" & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Quit" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Next
For cnt = 0 to TIME
Crt.screen.Send "interface optical-transmitter 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Optical-transmitter bias Threshold 2" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Optical-transmitter Power threshold 1 5" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Optical-transmitter rf att 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-transmitter Run Info" & CHR & CHR & Chr (All) & Chr & Chr (13) & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display optical-transmitter system parameter" & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Quit" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Next
Crt.screen.Send "Quit" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "root" & Chr (13)
Crt. Sleep delay
Crt.screen.Send "admin123" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Enable" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr & Chr (All) & Chr & Chr (13)
Crt. Sleep delay
For cnt = 0 to Atttime
Crt.screen.Send "Diagnose" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "RF att 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "RF att" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "RF att 5" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display temperature Optical-node 0" & Chr (Ten) & Chr & Chr (All) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Next
Crt.screen.Send "root" & Chr (13)
Crt. Sleep delay
Crt.screen.Send "admin123" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Enable" & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr & Chr (All) & Chr & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Diagnose" & CHR & CHR & CHR & Chr (13)
Crt. Sleep delay
For cnt = 0 to Atttime
Crt.screen.Send "su" & Chr (Ten) & Chr (13)
Crt. Sleep 500
Crt.screen.Send "Elabel optical-node 0 0 1123qsedq 20180428" & Chr (Ten) & Chr (All) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Elabel optical-node 0 2 1123qsedq 20180428" & Chr (Ten) & Chr (All) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Elabel optical-node 0 3 1123qsedq 20180428" & Chr (Ten) & Chr (All) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display version Optical-node 0" & Chr (Ten) & Chr (All) & Chr & Chr (All) & Chr & CHR & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Diagnose" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Elabel optical-node 0" & Chr (Ten) & Chr & Chr (All) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "config" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Display Optical-node 0" & Chr (Ten) & Chr (13)
Crt. Sleep delay
Crt.screen.Send "Diagnose" & Chr (Ten) & Chr (13)
Crt. Sleep dela
Next
End Sub
IIC stability. VBS