[security CRT] VB实现自动下载脚本

#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
    Dim i

    crt.Screen.Send "reboot "& chr()

    for i = to
    crt.Screen.Send "d"
    crt.Sleep
    next
    crt.Screen.Send ""&chr()

    crt.Screen.WaitForString "[root /]# "
    crt.Sleep 

    crt.Screen.Send "image "& chr()

    crt.Screen.WaitForString "[image /]#"
    crt.Screen.Send "download 0"& chr()
    crt.Sleep
    crt.screen.sendkeys "Y"
    'crt.Sleep 1000
    crt.Screen.WaitForString "Start XMODEM download by CRC mode ..."
    crt.Screen.WaitForString "CC"

    'crt.screen.SendSpecial("MENU_SEND_XMODEM")

End Sub