zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    王歆瑶20191128-1 总结
    王歆瑶 20191121-1 每周例行报告
    王歆瑶20191114-1 每周例行报告
    王歆瑶20191107-1 每周例行报告
    王歆瑶20191031-1 每周例行报告
    王歆瑶20191024-1 每周例行报告
    王歆瑶20191017-1 每周例行报告
    王歆瑶20191010-2 每周例行报告
    王歆瑶20190919-4 单元测试,结对
    LeetCode 11 盛水最多的容器
  • 原文地址:https://www.cnblogs.com/lanzhi/p/6468818.html
Copyright © 2011-2022 走看看