SecureCRT下载/注册/安装镜像文件

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

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

Dim FTP_IP, FTP_User, FTP_Pass, FTP_Path
FTP_IP = "10.11.44.1"
'FTP_IP = "10.90.243.20"
FTP_User = "mpsvr"
FTP_Pass = "mpsvr"
FTP_Path = "/mpce"   'Have Path 
'FTP_Path = ""       'Don't support no path, it is a bug

Dim Image_Version
Image_Version = ""

Dim Show_Download, Show_Register, Show_Install, Show_Progress
Show_Download = "show image download progress"
Show_Register = "show image registration progress"
Show_Install  = "show image install progress"
Show_Progress  = "show images progress"

Dim cmd_image_download, cmd_image_register, cmd_image_install

Sub Main
    crt.Screen.Synchronous = True

    Image_Version = crt.Dialog.Prompt("Please enter your image filename(with extention):", "Enter filename", "", False)
    
    cmd_image_download = "image download ftp://" & FTP_User & ":" & FTP_Pass & "@" & FTP_IP & FTP_Path & "/" & Image_Version
    cmd_image_register = "image register " & Image_Version
    cmd_image_install = "image install " & left(Image_Version, len(Image_Version)-4)


    REM Image Download
    crt.Screen.Send vbCr & vbCr & vbCr
    crt.Screen.Send cmd_image_download & vbCr
    crt.Screen.WaitForString "#"
    crt.Sleep 1000
    crt.Screen.Send vbCr
    Do
        crt.Screen.Send Show_Download & vbCr
        if Not crt.Screen.WaitForString("download completed", 5) then
            crt.Screen.Send vbCr
            crt.Sleep 10000
        else
            exit do
        end if
    Loop

    REM Image Register
    crt.Screen.Send vbCr & vbCr & vbCr
    crt.Screen.Send cmd_image_register & vbCr
    crt.Screen.WaitForString "#"
    crt.Sleep 1000
    crt.Screen.Send vbCr
    Do
        crt.Screen.Send Show_Register & vbCr
        if Not crt.Screen.WaitForString("successfully registered", 5) then
            crt.Screen.Send vbCr
            crt.Sleep 10000
        else
            exit do
        end if
    Loop

    REM Image Install
    crt.Screen.Send vbCr & vbCr & vbCr
    crt.Screen.Send cmd_image_install & vbCr
    crt.Screen.WaitForString "Do you want to install the image (y or n)?"
    crt.Screen.Send "yes" & vbCr
    crt.Screen.WaitForString "#"
    crt.Sleep 1000
    crt.Screen.Send vbCr
    Do
        crt.Screen.Send Show_Install & vbCr
        if Not crt.Screen.WaitForString("Waiting to reboot", 5) then
            crt.Screen.Send vbCr
            crt.Sleep 10000
        else
            exit do
        end if
    Loop

    REM Image progress 
    crt.Screen.Send vbCr & vbCr & vbCr
    crt.Sleep 1000
    Do
        crt.Screen.Send Show_Progress & vbCr
        rem msp-qam-2.1.0.0.396   95 
        if Not crt.Screen.WaitForString(left(Image_Version, len(Image_Version)-4) & "   95", 5) then
            crt.Screen.Send vbCr
            crt.Sleep 5000
        else
            exit do
        end if
    Loop
    
    crt.Dialog.MessageBox _
        "GOOD." & vbcrlf & _
        "You have finished all the operations, waiting for the rebooting...."

    crt.Screen.Synchronous = False
End Sub