code:

---

 BREAK ON 
 CLS
 ;InetCtls.Inet.1
 ;Msinet.ocx

 ; - http://cwashington.netreach.net/depo/view.asp?Index=419&ScriptType=vbscript
 ; - http://www.bridgeport.edu/~mahmood/cs555_utils.doc
 ;;dim $objArgs

 $ftpo = CreateObject("InetCtls.Inet.1")
 IF @error <> '0'
       ?@error + " encountered - leaving now, could not find InetCtls.Inet.1"
       SLEEP 3
       EXIT 2
 ENDIF
 ?"Looks good"
 SLEEP 1
 $url = "ftp://www.yoururl.com"
 $rdir = "remotedir"
 $user = "user"
 $pass = "yourpass"
 $slfile = "C:\cr.dbf"
 $ftpo.url = $url
 $ftpo.username = $user
 $ftpo.password = $pass
 ?"Connecting..."
 $dirchg =  "CD " + $rdir
 $ftpo.execute chr(44) $dirchg
 ;$ftpo.execute , $dirchg ; -- KiXtart does not like this

 $tst =  $ftpo.execute chr(44) "dir"
 ?$tst
get $
 $sSendfl = "SEND " + $slfile
 $ftpo.Execute chr(44) $sSendfl
 ?"Closing"
 $ftpo.execute  chr(44) "Close"
 ?"Done!"
 $fso = nothing
 $ftpo = nothing
 SLEEP 2
  

---