ftp/Simple.vbs

'///////////////////////////////////////////////////////////////////////////////////
'//
'// Simple
'//
'// Purpose: 
'//   Connects to remote server.
'//
'// Copyright (c) by SmartSoft Ltd
'//
'///////////////////////////////////////////////////////////////////////////////////
Dim obj
Set obj = CreateObject("sfFTPLib.FTPConnectionSTA")

Dim result

' Settings
obj.Host = "smartftp.com"
obj.Username = "anonymous"
obj.Password = "test@test.com"
obj.Port = 21
obj.Protocol = 0 ' ftpProtocolNormal
obj.Passive = 1
obj.MLST = 1
' Enable logging
'Dim fileLogger
'Set fileLogger = obj.SetFileLogger()
'fileLogger.File = "Connect.log"

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

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

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