SecureCRT循环检查设备状态

  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: