VBS swap ftp servers on connection timeout

Hi

I have a vb script to upload files to an ftp server – works very well, but the next stage of development is to be able to automatically switch to a second mirror server if the connection times out (eg server dead, WAN down etc). The part of the script that does the ftp is:

Set wshell = CreateObject(“WScript.Shell”)
‘wshell.Run(“ftp -i -s:” & chr(34) & strFTPScriptFileName & chr(34))
Return = wshell.Run(“ftp -i -s:” & chr(34) & strFTPScriptFileName & chr(34), , True)

don’t quite know the best way to go about this though – there are several things I think I could do but I’m no programmer, I write scripts to do a job at the time.