#include<ftp.au3>
#include <Inet.au3>

$pass = ("")
$serverip = ("")
$username = ("")
$uploadfile = ("homeip.htm")
$dir = ("ip")

$wanip = _GetIP()

$file = FileOpen($uploadfile, 1)
FileWrite($file, $wanip)
FileClose($file)

Sleep(1000)
$dll = DllOpen("wininet.dll")
Sleep(500)
$Open = _FTPOpen("google.de")
$Conn = _FTPConnect($Open, $serverip, $username, $pass)
_FtpSetCurrentDir($Conn, "/" & $dir) ;Verzeichnis auf dem Server wechseln
$Ftpp = _FtpPutFile($Conn, $uploadfile, $uploadfile)
$Ftpc = _FTPClose($Open)
DllClose($dll)
Sleep(1000)
FileDelete($uploadfile)
Exit