Automatically Determine FTP Proxy Method

Tries each of the five possible ProxyMethod settings and returns the value (1-5) of the ProxyMethod that succeeded.

Download Chilkat FTP2 ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set ftp = CreateObject("Chilkat.Ftp2")

'  Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    WScript.Quit
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "example-code.com"
ftp.Password = "****"

ftp.ProxyHostname = "ftp.myproxyhost.com"
ftp.ProxyPort = 21
'  Note: Your FTP Proxy server may or may not require authentication.
ftp.ProxyUsername = "myProxyUsername"
ftp.ProxyPassword = "myProxyPassword"

'  The ProxyMethod should be an integer value between 1 and 5.
'  If you know your FTP proxy server's authentication scheme,
'  you may set it directly.  To determine the ProxyMethod,
'  call DetermineProxyMethod.  A return value of -1 indicates a failure.
'  A return value of 0 indicates that nothing worked.
'  A return value of 1-5 indicates the ProxyMethod that was
'  successful, and this should be the value used for the ProxyMethod
'  property.

pMethod = ftp.DetermineProxyMethod()
outFile.WriteLine(pMethod)

ftp.Disconnect 
outFile.Close