$vrUrlFTP = InputBox("URL FTP", "Entrez ici votre adresse FTP:", "", "")
 If $vrUrlFTP = "" Then 
    MsgBox(0,"Info","Vous n'avez pas entrer l'url FTP, abandon de la connexion") 
    exit
 Else
 Endif

$vrNamUser = InputBox("Nom d'utisisateur", "Entrez ici votre nom d'utilisateur FTP: default anonymous", "", "")
 If $vrNamUser = "" Then  $vrNamUser = "anonymous"
     

$vrPassword = InputBox("Password", "Entrez ici votre mot de passe FTP: default anonymous", "", "")
 If $vrPassword = "" Then  $vrPassword = "anonymous"
    


$vrPort = InputBox("Password", "Entrez ici votre port FTP: default 21", "", "")



if $vrPort = "" Then $vrPort = "21"



$file_index = FileOpen($vrNamUser & ".bat", 2) 
FileWriteLine($file_index, 'explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort) 
FileClose($file_index) 


RunWait('explorer.exe ftp://' & $vrNamUser & ':' & $vrPassword & '@' & $vrUrlFTP & ':' & $vrPort)