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: