k, checked out the syntax and this should work for you:
Code:

Function FTPgetPOST($sServer, $sFile, $sTargetFile, optional $sUser, optional $sPass)
  Dim $oFTP, $oStream
  $sUser=""+$sUser
  $oFTP = CreateObject("Microsoft.XMLHTTP")
  if @error $ftpget=1 exit 1 endif
  $oStream = CreateObject("ADODB.Stream")
  if @error $ftpget=2 exit 2 endif
  if $sUser
    $oFTP.Open("POST", $sServer, not 1, $sUser, $sPass)
  else
    $oFTP.Open("POST", $sServer, not 1)
  endif
  if @error $ftpget=3 exit 3 endif
  $oFTP.setRequestHeader = "Content-Type", "application/x-www-form-urlencoded"
  $oFTP.Send($sFile)
  $oStream.Type = 1
  $oStream.Mode = 3
  $oStream.open
  $oStream.Write($oFTP.responseBody)
  if @error $ftpget=4 exit 4 endif
  $oStream.SaveToFile($sTargetFile, 2)
  if @error $ftpget=5 exit 5 endif
  $oStream.Close
EndFunction
_________________________
!

download KiXnet