1: #$language = "VBScript"
2: #$interface = "1.0"
3:
4: ' This automatically generated script may need to be
5: ' edited in order to work correctly.
6:
7: Sub Main
8:
9: Dim cmd_show_chassis
10: Dim status_up, status_down
11: Dim time_minutes
12:
13: cmd_show_chassis = "show chassis"
14: status_up = "up"
15: status_down = "down"
16: test_data = "01:12"
17:
18: crt.Screen.Synchronous = True
19:
20: Do
21: crt.Screen.Send cmd_show_chassis & vbCr
22: if crt.Screen.WaitForString(status_down, 5) then
23: crt.Screen.Send vbCr
24: crt.Sleep 10000
25: else
26: exit do
27: end if
28: Loop
29:
30: crt.Dialog.MessageBox _
31: "GOOD." & vbcrlf & _
32: "All Cards is UP! Pelase Enjoy it Now...."
33:
34: crt.Screen.Synchronous = False
35: End Sub
36: