(VBScript) Automatically Determine FTP Proxy Method

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ftp2")
set ftp = CreateObject("Chilkat.Ftp2")

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)

success = ftp.Disconnect()

outFile.Close