长时间关机测试脚本.VBS

Sub Main

Dim cnt
Dim delay
Dim time
Dim atttime
atttime = 20
delay = 3000
time = 50
cnt_time=3
crt.screen.Send " " & chr(13)
crt.screen.WaitForString"Username:"
crt.screen.Send "admin" & chr(13)
crt.screen.WaitForString"Password:"
crt.screen.Send "admin" & chr(13)
crt.screen.WaitForString">"
crt.screen.Send "enable" & chr(13)
crt.screen.WaitForString"(pri)>"
crt.screen.Send "config terminal" & chr(13)
crt.screen.WaitForString"(config)>"
crt.screen.Send "show date" & chr(13)
If(crt.screen.WaitForString("weew:",5)<>flase)Then
crt.screen.Send "time_bug"& chr(13)
else
crt.screen.Send "no bug"& chr(13)
End If
End Sub