#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = TRUE
dim str,result,Currentdate,CurrentTime,i,timestr
str=" test result: "
result="OK!"
i=999999
j=0
Set ws = CreateObject("WScript.Shell")
Sub Main
do until i=0
crt.Screen.Send "admin"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ssdx123"
crt.Screen.Send chr(13)
crt.Sleep 2000
j = j + 1
crt.Screen.Send j
crt.Sleep 1000
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ping 1.0.1.28"
crt.Screen.Send chr(13)
crt.Sleep 5000
ws.SendKeys "^c"
crt.Sleep 2000
crt.Screen.Send "telnet 1.0.1.28"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "root"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls1012a"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "cd /app"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls -l"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "exit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ping 1.0.1.12"
crt.Screen.Send chr(13)
crt.Sleep 5000
ws.SendKeys "^c"
crt.Sleep 2000
crt.Screen.Send "telnet 1.0.1.12"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "root"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls1012a"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "cd /app"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls -l"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "exit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "sudo -i"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "inventory -g -s slot3"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "inventory -g -s slot7"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "telnet 0 2222"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "edit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "show alarm"
crt.Screen.Send chr(13)
crt.Sleep 3000
If crt.Screen.WaitForString("COMMUN_FAIL",3)=False Then
crt.Screen.Send "HAD FOUND!STOPPED"
End If
Exit Do
crt.Screen.Send "show card"
crt.Screen.Send chr(13)
crt.Sleep 3000
crt.Screen.Send "flu all"
crt.Screen.Send chr(13)
crt.Sleep 1000
i = i - 1
crt.Sleep 300000
loop
msgbox (result & chr(13) & "reboot:" & (10000-i) & chr(13) &"time:"&Currentdate & " " & CurrentTime)
End Sub
#$interface = "1.0"
crt.Screen.Synchronous = TRUE
dim str,result,Currentdate,CurrentTime,i,timestr
str=" test result: "
result="OK!"
i=999999
j=0
Set ws = CreateObject("WScript.Shell")
Sub Main
do until i=0
crt.Screen.Send "admin"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ssdx123"
crt.Screen.Send chr(13)
crt.Sleep 2000
j = j + 1
crt.Screen.Send j
crt.Sleep 1000
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ping 1.0.1.28"
crt.Screen.Send chr(13)
crt.Sleep 5000
ws.SendKeys "^c"
crt.Sleep 2000
crt.Screen.Send "telnet 1.0.1.28"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "root"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls1012a"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "cd /app"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls -l"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "exit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ping 1.0.1.12"
crt.Screen.Send chr(13)
crt.Sleep 5000
ws.SendKeys "^c"
crt.Sleep 2000
crt.Screen.Send "telnet 1.0.1.12"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "root"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls1012a"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "cd /app"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "ls -l"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "exit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "sudo -i"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "inventory -g -s slot3"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "inventory -g -s slot7"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "telnet 0 2222"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "edit"
crt.Screen.Send chr(13)
crt.Sleep 2000
crt.Screen.Send "show alarm"
crt.Screen.Send chr(13)
crt.Sleep 3000
If crt.Screen.WaitForString("COMMUN_FAIL",3)=False Then
crt.Screen.Send "HAD FOUND!STOPPED"
End If
Exit Do
crt.Screen.Send "show card"
crt.Screen.Send chr(13)
crt.Sleep 3000
crt.Screen.Send "flu all"
crt.Screen.Send chr(13)
crt.Sleep 1000
i = i - 1
crt.Sleep 300000
loop
msgbox (result & chr(13) & "reboot:" & (10000-i) & chr(13) &"time:"&Currentdate & " " & CurrentTime)
End Sub