#$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