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
  

---

code:

---

$ftpo.execute( chr(44)+$dirchg)

---

quote:

---

Sub Execute ([ByVal URL], [ByVal Operation], [ByVal InputData], [ByVal InputHdrs])

---

code:

---

break on
$db = "N:\usersdatabase\users.mdb"
; -- Step one - Determine where MS-Access installed for the executable
$Access = READVALUE("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE","")
; -- Step two - Compact the database each time before transfer as there will be alot of inserts done on it
; -- Developer's Note: MS-Access is notorious for "bloat" when inserts are done and/records removed
RUN $Access + " " + $db + "//compact"
SLEEP 1
; -- Step three - Start the FTP Process
$Win32Admin = createobject("Win32Admin")
; Method FTP($RemoteServer, $Account, $Password, $Mode, $LocalDir, $RemoteDir, $Action, $Filename)
; $Mode   -> [ascii|binary]
; $Action -> [get|put|size]
;
;   Performs the specified FTP operation.
;   Be sure to double the "@" in the password or email address if used for anonymous logons.

$RemoteServer = 'someserver.com'
$Account = 'userid'
$Password = 'password'
$Mode = 'binary'
$LocalDir = 'n:\usersdatabase'
$RemoteDir = 'database'
$Action = 'put'
$Filename = 'users.mdb'

IF $Win32Admin.FTP( $RemoteServer, $Account, $Password, $Mode, $LocalDir, $RemoteDir, $Action, $Filename)
	? ? "FTP successful"
	?
else
	? ? "FTP Failed! @serror"
	?
endif  

---

code:

---

 break on
 ; --- http://groups.google.com/groups?q=xmlhttp+ftp&hl=en&lr=&ie=UTF-8&selm=%23ZHFbJr3BHA.2488%40tkmsftngp04&rnum=2
 $sxmldata = GetXML("ftp://ftp.microsoft.com/bussys/readme.txt","","")
 ?$sxmldata

 FUNCTION GetXML($surl,$susr,$spasswd)
       ; Create an xmlhttp object:
       DIM $oxml
       $oxml = CreateObject("Microsoft.XMLHTTP")
       ;Opens the connection to the remote server.
       ;rtn  = xml.Open((B))
       $oxml.open "GET" chr(44) $surl chr(44) $false chr(44) $susr chr(44) $spasswd
       ; Actually Sends the request and returns the data:
       $oxml.send
       DO 
             WHILE $oxml.readystate<>4
             SLEEP 10
             LOOP
       UNTIL
       $getxml = $oxml.responsetext
 ENDFUNCTION
  

---

code:

---

$net=createobject("microsoft.xmlhttp")
$net.open("GET",$address,not 1)
$net.send
$THEFILE=$net.responsebody

---