'///////////////////////////////////////////////////////////////////////////////////
'//
'// Simple v1.0 (9. May 2005)
'//
'// Purpose:
'//   Connects to remote server.
'//
'// Copyright (c) 2005 by SmartFTP.com
'//
'///////////////////////////////////////////////////////////////////////////////////
Dim obj
Set obj = CreateObject("sfFTPLib.FTPConnectionSTA")

WScript.Echo "Object created." & vbCrLf

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
obj.LogFile = "Connect.log"

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

' Connect
result = obj.Connect()
WScript.Echo "Connected" & vbCrLf