upload von einer Datei über FTP

Hi,
ich versuche eine Datei per FTP hochzuladen.

autoBert war mir schon eine große hilfe aber irgendwo klemmt es noch...

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>

Opt('MustDeclareVars', 1)

_example1()

Func _example1()
;lädt eine Datei hoch
Local $s_ServerName = 'ftpde' ;< ==== anpassen
Local $s_Username = 'user' ;< ==== anpassen
Local $s_Password = 'pw' ;< ==== anpassen

Local $s_LocalFile = "D:\datei.xlsx" ;< ==== anpassen
Local $s_RemoteFile = "/ordner/datei.xlsx" ;< ==== anpassen
Local $i_Passive = 1 ; mit 0 und 1 getestet
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP

;$l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_PRECONFIG ) ;Öffnet eine FTP Sitzung
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
If _FTP_FilePut($l_FTPSession, $s_LocalFile, $s_RemoteFile) Then
ConsoleWrite("Upload: erfolgreich" & @CRLF)
Else
ConsoleWrite("Upload: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession) ;schliesst die FTP-Sitzung
EndFunc ;==>_example1

als fehler gibt es nur "open fehlgeschlagen" bzw.

Open  -1

hat jemand ne idee was das problem ist?

Danke & Gruß

Keiner ne idee?

du hast das jetzt einfach übernommen !?
nur die 5 variablen am anfang angepasst?

ich habe es jetzt nochmal von nem anderen PC in einem anderen Netzwerk getestet...
gleicher fehler
versteh ich nich...

wie gesagt habe es jetzt dann auf 3 pc versucht.
einer davon war ohne router, firewall und virenscanner am netzt...
aber auch da kein erfolg.
ich habe es auch bei allen mit admin rechten versucht...

auch habe ich folgende parameter versucht:

$l_InternetSession = _FTP_Open('MyFTP Control') ;Öffnet eine FTP Sitzung
;$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_DIRECT ) ;Öffnet eine FTP Sitzung
;$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_PRECONFIG ) ;Öffnet eine FTP Sitzung
;$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY ) ;Öffnet eine FTP Sitzung
;$l_InternetSession = _FTP_Open('AuoItZilla',$INTERNET_OPEN_TYPE_PROXY ) ;Öffnet eine FTP Sitzung

aber nix. immer die selbe Meldung... Oo

ja klappt problemlos...

C:\Users\user>ftp
ftp> open server
Verbindung mit server wurde hergestellt.
220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------
220-You are user number 1 of 50 allowed.
220-Local time is now 07:35. Server port: 21.
220-This is a private system - No anonymous login
220-IPv6 connections are also welcome on this server.
220 You will be disconnected after 15 minutes of inactivity.
Benutzer (server:(none)): user
331 User user OK. Password required
Kennwort:
230-User user has group access to:  client3    sshusers
230 OK. Current restricted directory is /
ftp> ls
200 PORT command successful
150 Connecting to port 49450
.
..
cgi-bin
log
ssl
tmp
web
226-Options: -a
226 7 matches total
FTP: 36 Bytes empfangen in 0,00Sekunden 36,00KB/s
ftp>

irgendwie is das komisch...*seufz*

Zitat von Oscar

Das solltest Du in Deinem Script auch mal eintragen, wenn auf dem Server nicht der Standard-FTP-Port (21) benutzt wird.

habe mich noch 2 mal verbunden und habe 2 mal nen anderen port angezeigt bekommen
also das sollte dann wohl was anderes sein.
denke mal das es nur mit dem "ls" also dem verzeichnis listing zu tun hat...

zeile 6 sagt ja:
220-Local time is now 07:35. Server port: 21.

ich habe es jetzt nochmal mit 2 anderen ftp servern versucht.
bei allen kommt das gleiche ergebniss. oO

welche habe ich denn vergessen?
meinst du die flags?

so nochmal versucht...immernoch...

Also ich habe es jetzt bei "strato webhosting" "Strato-hidrive" und bei meinem eigenen root server getestet.
Als OS habe ich zum testen win7 32 & 64 bit und Windows WebServer 2008 R2 SP1.

Aber wenn ich das richtig lese scheitert es ja noch nichtmal an der übertragung sondern eher am verbindungsaufbau oder?
Ich habe das ganze auch schon zur exe gemacht und als admin gestartet...brachte auch nix

Danke & Gruß

mh...okay...
ich kann erstmal feststellen das die datei WinINet.dll da ist

Also ich habe das jetzt nochmal auf nem XP Rechner getestet.
Da geht es ohne Problem oO
Also scheint Win7 hier das problem zu sein...

EDIT:
also mit dem kompatibilitätsmodus geht es auch
werde ich morgen mal auf dem anderen rechner testen...