VBScript

Check FTP Connection and Login Status

Demonstrates the connection-status properties ConnectVerified, LoginVerified, ConnectFailReason, and Greeting.

Background: When Connect fails, these properties separate the possible causes: ConnectVerified shows whether the TCP connection was established at all, LoginVerified whether authentication then succeeded, and ConnectFailReason gives a numeric code pinpointing the failure — far more actionable than a generic error for distinguishing, say, an unreachable host from a bad password. The Greeting captures the server's opening banner, sometimes useful for identifying the server or its policies.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

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

success = 0

set ftp = CreateObject("Chilkat.Ftp2")

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password = "myPassword"

success = ftp.Connect()
If (success <> 1) Then
    '  ConnectFailReason gives a numeric code describing why Connect failed.
    outFile.WriteLine("Connect failed, reason code: " & ftp.ConnectFailReason)
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

'  After a successful connect, these flags report what succeeded.
outFile.WriteLine("TCP connection verified: " & ftp.ConnectVerified)
outFile.WriteLine("Login verified: " & ftp.LoginVerified)

'  The Greeting property holds the server's initial greeting banner.
outFile.WriteLine("Server greeting: " & ftp.Greeting)

success = ftp.Disconnect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If


outFile.Close