code:

---

 BREAK ON
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q298108
 ; -- http://support.microsoft.com/default.aspx?scid=kb;EN-US;q296713
 $user = "kdyer"
 $password = "password"
 $address = "ftp://ftpsite"
 $rdir = "/kdyer"
 $file = "C:\untitled1.jpg"
 $ftpobj = CreateObject("microsoft.xmlhttp")
 IF @error <> 0
       ?@error
       SLEEP 2
       EXIT 1
 ENDIF

 $ftpobj.open("PUT", $address, FALSE, $user,$password)

 IF $file <> ""
       ; -- check to insure that you have the right encoding
       ;application/x-www-form-urlencoded
       ;image/gif
       ;image/x-xbitmap
       ;image/jpeg
       ;image/pjpeg;
       ;application/vnd.ms-powerpoint;
       ;application/vnd.ms-excel
       ;application/msword
       ;*/*
       $ftpobj.setrequestheader = "Content-Type", "*/*"
       $ftpobj.send $file
 ENDIF
 $ftpobj = 0

---