iic稳定性测试.vbs

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(13) & chr(13)
crt.Sleep delay
crt.screen.Send "enable"  & chr(13)
    crt.Sleep delay
crt.screen.Send "config"  & chr(13)& chr(13)
crt.Sleep delay
    For cnt = 0 To time
    crt.screen.Send "optical-node  workmode  0  1RX2TX "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node 0 "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node system parameter 0 "  & Chr(10) & chr(13)
    crt.Sleep delay 
Next
crt.screen.Send "root" & Chr(10) & chr(13)
    crt.Sleep delay
crt.screen.Send "admin123" & Chr(10) & chr(13) & Chr(10) & chr(13)
crt.Sleep delay
crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
crt.Sleep delay 


crt.Sleep delay
For cnt = 0 To time
    crt.screen.Send "interface optical-receiver 0"  & Chr(10) & chr(13)
    crt.screen.Send "rf power threshold 0 5"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "optical power threshold -8 2"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "optical agc mode on range minus4to2dBm"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-receiver run info"  & Chr(10) & chr(13) & chr(13) & chr(13) & chr(13) & chr(13) & chr(13) 
    crt.Sleep delay 
    crt.screen.Send "display optical-receiver system parameter "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "rf output switch on"  & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf output switch off"  & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "quit "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node 0 "  & Chr(10) & chr(13)
    crt.Sleep delay 
Next


For cnt = 0 To time
    crt.screen.Send "interface optical-transmitter 0"  & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical-transmitter bias threshold 2 88"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "optical-transmitter power threshold 1 5"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "optical-transmitter rf att 0"  & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-transmitter run info"  & Chr(10) & chr(13)& chr(13)& chr(13)& chr(13)& chr(13)& chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-transmitter system parameter"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "quit "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node 0 "  & Chr(10) & chr(13)
    crt.Sleep delay
Next
crt.screen.Send "quit"  & Chr(10) & chr(13)
crt.Sleep delay 
crt.screen.Send "root"  & chr(13)
    crt.Sleep delay
crt.screen.Send "admin123" & chr(13)  & chr(13)
crt.Sleep delay
crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
crt.Sleep delay

For cnt = 0 To atttime
    crt.screen.Send "diagnose "  & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf att 0"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "rf att 10"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "rf att 5"  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display temperature optical-node 0 "  & Chr(10) & chr(13)& chr(13)& chr(13)
    crt.Sleep delay 
    crt.screen.Send "config "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node 0 "  & Chr(10) & chr(13)
    crt.Sleep delay
Next
crt.screen.Send "root"  & chr(13)
    crt.Sleep delay
crt.screen.Send "admin123" & chr(13) & chr(13)
crt.Sleep delay
crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
crt.Sleep delay
crt.screen.Send "diagnose" & Chr(10) & chr(13) & Chr(10) & chr(13)
crt.Sleep delay
    For cnt = 0 To atttime
    crt.screen.Send "su "  & Chr(10) & chr(13)
    crt.Sleep 500
    crt.screen.Send "elabel optical-node 0 0 1123qsedq 20180428"  & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay 
    crt.screen.Send "elabel optical-node 0 2 1123qsedq 20180428"  & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay 
    crt.screen.Send "elabel optical-node 0 3 1123qsedq 20180428"  & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay     
    crt.screen.Send "display version optical-node 0 "  & Chr(10) & chr(13)& chr(13)& chr(13)& chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "diagnose "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display elabel optical-node 0 "  & Chr(10) & chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "config "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "display optical-node 0 "  & Chr(10) & chr(13)
    crt.Sleep delay 
    crt.screen.Send "diagnose "  & Chr(10) & chr(13)
    crt.Sleep dela  
Next    

End Sub