ftp/Simple.vbs

'///////////////////////////////////////////////////////////////////////////////////
'//
'// Simple
'//
'// Purpose: 
'//   Connects to remote server.
'//
'// Technical support: support@smartftp.com
'// Copyright (c) by SmartSoft Ltd
'//
'///////////////////////////////////////////////////////////////////////////////////
Dim ftpConnection
Set ftpConnection = CreateObject("sfFTPLib.FTPConnectionSTA")

Dim result

' Settings
ftpConnection.Host = "ftp.smartftp.com"
ftpConnection.Username = "anonymous"
ftpConnection.Password = "test@test.com"
'ftpConnection.Port = 21
ftpConnection.Protocol = 4 ' ftpProtocolPreferTLS
'ftpConnection.Passive = 1

' Enable logging
'Dim fileLogger
'Set fileLogger = ftpConnection.SetFileLogger()
'fileLogger.File = "Connect.log"

WScript.Echo "Port = " & ftpConnection.Port & vbCrLf

ftpConnection.Connect()
WScript.Echo "Connected" & vbCrLf

' Disconnect
ftpConnection.Disconnect()
WScript.Echo "Disconnected" & vbCrLf