FTP Connect failure

[kylomas]

Good Evening,

I am trying to send a log file to my Web hoster (unsure if that is the correct terminology) using the AutoIT FTP functions.

I can Xfer files using Filezilla and can connect by specifying the URL in IE's address bar but cannot connect with AutoIT.

Called the hoster and asked if they could see any inbound connection attempts and give me any failure/reject codes but they say that they cannot get that data (did not penetrate past the help desk, yet).

Found one hit and tried that solution to no avail. See comments in code.

expandcollapse popup

;
;
;
#include <FTPEx.au3>
#include <array.au3>
local $st    = timerinit()
local $files[1]
local $file_list = f_search('c:\tmp\ftptest\log*')
consolewrite('Time to list files    = ' & round(timerdiff($st)/1000,4) & @lf)
ConsoleWrite('Number of files found = ' & UBound($file_list) - 1 & @lf)
;_arraydisplay($file_list)
Local $server   = 'ftp://ehost-services170.com'
Local $username  = '*******'
Local $pass   = '********'
Local $Open = _FTP_Open('Samolyk FTP')
If $open = 0 Then
 MsgBox(0,'open error',@error)
 Exit
endif
; the following statement returns 0 in $Conn, @error is set to -1 and @extended is set to 12007
; 12007 equates to "ERROR_INTERNET_NAME_NOT_RESOLVED" (The server name could not be resolved.
; all of the following function calls failed with the same error
;Local $Conn = _FTP_Connect($Open, $server, $username, $pass)         <---- tried this initially
;Local $Conn = _FTP_Connect($Open, $server, $username, $pass, 1)       <---- found a post that offered this solution, no good
Local $Conn = _FTP_Connect($Open, $server, $username, $pass, 1, 21) ;  <---- current statement
If $conn = 0 Then
 MsgBox(0,'return from connect',@error & @LF & @extended)
 exit
endif
Local $put  = _FTP_FilePut($conn,$file_list[1],"")
If $put = 0 Then
 MsgBox(0,'',@error)
 exit
EndIf
Local $Ftpc = _FTP_Close($Open)
Func f_search ($s_dir)
 local $fls = FileFindFirstFile($s_dir)
 If @error = -1 Then msgbox(0,'Error','')
 While 1
  $next = FileFindNextFile($fls)
  If @error Then return($files)
  If Not @extended then
   $files[ubound($files)-1] = $s_dir & '\' & $next
   redim $files[ubound($files) + 1]
  EndIf
 WEnd
 FileClose($fls)
EndFunc

If I have to I will provide the account and password privately to get this resolved (if I recognize you as a regular).

Thanks,

kylomas

[Jos]

Why put "FTP://" infront of the servername?

[kylomas]

Jos,

Let me try it w/o that...

kylomas

[kylomas]

Jos,

Thank you!!!! It got past that error.

This was one of those "forest for the trees" deals...been jack'in around with this all afternoon.

Again, thanks,

kylomas