Dans le cadre d'une mise à dispo d'adresse IP sur un serveur FTP, j'ai utilisé ce script :
(generation d'un fichier html, copie de l'adresse IP publique dans le fichier et envoi par FTP)
Code : Tout sélectionner
#include <INet.au3>
#include <file.au3>
#include <FTP.au3>
Opt ("MustDeclareVars",1)
Dim $ip = _GetIP () ;recupere l'ip publique
Dim $fo = FileOpen ("c:\tempo\test.html",9);creer un fichier pour ecriture
Dim $file = FileWrite ($fo,$ip); ecrit dans le fichier html, l'adresse IP
Dim $server = 'ftpperso.free.fr'
Dim $username = 'user'
Dim $pass = 'mot de passe'
Dim $Open = _FTPOpen('MyFTP Control')
MsgBox (0,"open",$Open)
Dim $Conn = _FTPConnect($Open, $server, $username, $pass)
MsgBox (0,"connect",$Conn)
Dim $Ftpp = _FtpPutFile($Conn, 'c:\tempo\test.html', '/ip.html')
MsgBox (0,"put",$Ftpp)
Dim $Ftpc = _FTPClose($Open)
MsgBox (0,"close",$Ftpc)
Malheureusement, la msgbox du _FtpPutFile me renvoi un code "0".
Alors que les deux precedentes (msgbox) me renvoi bien un numero (ID).
J'ai utilisé le script FTP.au3 du site anglais.
Une idée ?
D'avance merci.
