[..] Création De Compte FTP par Scripte

[turistceto]

Bonjour à tous,

J'aurais besoin de votre aide pour crée un scripte qui me permettera d'automatiser la création des comptes à distance sur mon FTP .

J'utilise Filezilla server comme serveur FTP

je ne sais pas si c'est possible, mais je voudrais pouvoir executer un scripte à partir d'un PC distant, qui me permettera en modifiant le fichier XML de:

- crée un compte
- crée un mot de passe
- crée un repertoir dedié à cet utilisateur avec les bons droit.

Merci de tout l'aide que vous pouvez m'apporter.

PS: Désolé pour le 1èr message qui ne respectait pas les regles du forum, j'èspaire que cette fois ci je n'ai pas commi d'erreur.

[Zippo]

Bonsoir turistceto,
Pour le protocole ftp tu peux te renseigner ici.

[turistceto]

Bonsoir Zippo,

Merci pour ta réponse mais le lien vers le quel tu me dirige ne m'aide pas beaucoups car ce n'est pas vraiment ce que je veux faire.

Mais par contre j'ai reussi a trouver quelque scripte qui me semble etre ce que je cherche mais je n'y arrive pas a le faire fonctionner

Voici les scripts (car elle se compose de 3 partie :

1ér partie ouverture d'un guie qui demande un compte user + mot de passe puis l'ecrit sur un fichier txt pour l'envoyer sur le FTP

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <File.au3>



FileDelete(@HomeDrive & @HomePath & "\temp\ftp\*.cmd")
FileDelete(@HomeDrive & @HomePath & "\temp\ftp\*.conf")
FileDelete(@HomeDrive & @HomePath & "\temp\ftp\put.ftp")
FileDelete(@HomeDrive & @HomePath & "\temp\ftp\get.ftp")
DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)

Sleep(1000)
DirCreate(@HomeDrive & @HomePath & "\temp")
DirCreate(@HomeDrive & @HomePath & "\temp\ftp")

Local  $nom, $Mdp, $Chemin, $fileconf, $filecmd, $fileftp, $maison, $CountLines, $Compteur, $file, $Test, $Line,$radio1, $radio2
$Chemin="ssupport/"
Opt('MustDeclareVars', 1)
Example()
$Mdp= GUICtrlRead($Mdp)
$NomFTP= GUICtrlRead($NomFTP)
$Chemin= GUICtrlRead($Chemin)
$Radio1=1 ;          Par defautl l'adresse externe est (radio1=1) activer  pour modilier mettre radio1=2 2 en ligne 23 et radio1=1 en ligne 133


$Maison=@HomeDrive & @HomePath & "\temp\Ftp"

;---------------------Creation fichier conf"
If Not _FileCreate($Maison & "\" & $nomFTP & ".conf") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$fileconf = FileOpen($Maison & "\" & $nomFTP & ".conf", 1)
; Check if file opened for writing OK
If $fileconf = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
FileWriteLine($fileconf, $NomFTP)
FileWriteLine($fileconf, $mdp)
FileWriteLine($fileconf, "ssupport")
FileWriteLine($fileconf, "239")
FileClose($fileconf)

;---------------------Creation fichier lance-ftp"
If Not _FileCreate($Maison & "\Lance-Ftp.cmd") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$filecmd = FileOpen($Maison & "\Lance-Ftp.cmd", 1)
; Check if file opened for writing OK
If $filecmd = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
FileWriteLine($filecmd, "cd " & """" & $Maison & """")
FileWriteLine($filecmd, "ftp -ni <put.ftp")

FileClose($filecmd)

;---------------------Creation fichier Recup"
If Not _FileCreate($Maison & "\recup-Ftp.cmd") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$filecmd = FileOpen($Maison & "\recup-Ftp.cmd", 1)
; Check if file opened for writing OK
If $filecmd = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
FileWriteLine($filecmd, "cd " & """" & $Maison & """")
FileWriteLine($filecmd, "ftp -ni <get.ftp")

FileClose($filecmd)


;---------------------Creation fichier put"
If Not _FileCreate($Maison & "\put.ftp") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$fileftp = FileOpen($Maison & "\put.ftp", 1)
; Check if file opened for writing OK
If $fileftp = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
if $radio1=1 then
FileWriteLine($fileftp, "open 80.XXX.127.XXX") ; vers le 1er FTP
EndIf
if $radio1=2 then
FileWriteLine($fileftp, "open 89.XX.20.XX") ; vers le 2eme FTP
EndIf
FileWriteLine($fileftp, "user adm mdpadm") ; le compte qui a les autorisation pour deposer le fichier .txt
FileWriteLine($fileftp, "mput *.conf")
FileWriteLine($fileftp, "mput *.txt")
FileWriteLine($fileftp, "quit")
FileClose($fileftp)

;---------------------Creation fichier get
If Not _FileCreate($Maison & "\get.ftp") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$fileftp = FileOpen($Maison & "\get.ftp", 1)
; Check if file opened for writing OK
If $fileftp = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
if $radio1=1 then
FileWriteLine($fileftp, "open 80.XXX.127.XXX")
EndIf
if $radio1=2 then
FileWriteLine($fileftp, "open 89.XX.20.XX")
EndIf
FileWriteLine($fileftp, "user adm mdpadm")
FileWriteLine($fileftp, "get liste-compte.txt")
FileWriteLine($fileftp, "quit")
FileClose($fileftp)
FileChangeDir($Maison)
;-----------------------
;-------------------------connection avec le serveurFTP pour recuperation fichier des utilisateurs deja créés
Run(@ComSpec & " /c " & 'recup-Ftp.cmd', "",@SW_HIDE ) ; don't forget " " before "/c"
Sleep(5000)

$CountLines = _FileCountLines("liste-compte.txt")
$Compteur=0


$file = FileOpen($Maison & "\liste-compte.txt", 0)



; ---------------------------------------------------------test si le fichier a bien été recupéré 
If $file = -1 Then
    $Radio1=2
;---------------------creation de la mecanique en utilisant l'autre adresse du FTP
If Not _FileCreate($Maison & "\recup1-Ftp.cmd") Then
   MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
EndIf
$filecmd = FileOpen($Maison & "\recup1-Ftp.cmd", 1)
; Check if file opened for writing OK
If $filecmd = -1 Then
    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
FileWriteLine($filecmd, "cd " & """" & $Maison & """")
FileWriteLine($filecmd, "ftp -ni <get1.ftp")
FileClose($filecmd)

;---------------------

    FileDelete(@HomeDrive & @HomePath & "\temp\ftp\put.ftp")
    FileDelete(@HomeDrive & @HomePath & "\temp\ftp\get.ftp")
;MsgBox(4096,"Radio2", "Radio2" & @HomePath)
        If Not _FileCreate($Maison & "\put.ftp") Then
        MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
        EndIf
        $fileftp = FileOpen($Maison & "\put.ftp", 1)
; Check if file opened for writing OK
            If $fileftp = -1 Then
                MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
                DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
            Exit
            EndIf
                if $radio1=1 then
                FileWriteLine($fileftp, "open 80.XXX.127.XXX")
                EndIf
                    if $radio1=2 then
                    FileWriteLine($fileftp, "open 89.XX.20.XX")
                    EndIf
                FileWriteLine($fileftp, "user adm mdpadm")
                FileWriteLine($fileftp, "mput *.conf")
                FileWriteLine($fileftp, "mput *.txt")
                FileWriteLine($fileftp, "quit")
                FileClose($fileftp)

                        ;---------------------
                            If Not _FileCreate($Maison & "\get1.ftp") Then
                            MsgBox(4096,"Erreur", " Erreur de creation de fichier" & @HomePath)
                            EndIf
                            $fileftp = FileOpen($Maison & "\get1.ftp", 1)
                            ; Check if file opened for writing OK
                                If $fileftp = -1 Then
                                    MsgBox(0, "Error", "Impossible d'ouvrir le fichier")
                                    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
                                    Exit
                                    EndIf
                                        if $radio1=1 then
                                        FileWriteLine($fileftp, "open 80.XXX.127.XXX")
                                        EndIf
                                        if $radio1=2 then
                                        FileWriteLine($fileftp, "open 89.XX.20.XX")
                                        EndIf
                                            FileWriteLine($fileftp, "user adm mdpadm")
                                            FileWriteLine($fileftp, "get liste-compte.txt")
                                            FileWriteLine($fileftp, "quit")
                                            FileClose($fileftp)
                                                FileChangeDir($Maison)
                                                Run(@ComSpec & " /c " & 'recup1-Ftp.cmd', "",@SW_HIDE ) ; don't forget " " before "/c"
                                                Sleep(5000)
                                                    $CountLines = _FileCountLines("liste-compte.txt")
                                                    $Compteur=0
                                                    $file = FileOpen($Maison & "\liste-compte.txt", 0)
                                                    ; Check if file opened for reading OK
                                                    If $file = -1 Then  
                                                    MsgBox(0, "Erreur", "Impossible de joindre le serveur FTP")
                                                    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
                                                    exit
                                                    EndIf
EndIf

;------------------------------------------------------------------------------------------------
$test=0
For $a=1 to $CountLines
    
        $line = FileReadLine($file)
         $line=StringLower($Line)
        $NomFTP=StringLower($NomFTP)
        ;MsgBox(4096,"test", $Line & "  " & $NomFTP)
        If $NomFTP=$line Then $test=1
Next
FileClose($file)
if $Test=1 then
MsgBox(4096,"Erreur", "le Nom  " & $NomFTP & "  existe deja veuillez recommencer" )
DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
Exit
EndIf
if $mdp="" then
MsgBox(4096,"Erreur", "Vous n'avez pas saisie de nom ou de mot de passe: veuillez recommencer",5 )
DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
Exit
EndIf
if $NomFTP="" then
MsgBox(4096,"Erreur", "Vous n'avez pas saisie de nom ou de mot de passe: veuillez recommencer",5 )
DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
Exit
EndIf
$file = FileOpen($Maison & "\liste-compte.txt", 1)
; Check if file opened for reading OK
If $file = -1 Then
    MsgBox(0, "Erreur", "Fichier Liste-compte.txt   non trouvé")
    DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
    Exit
EndIf
FileWrite($file, $NomFTP & @CRLF)
FileClose($file)
Run(@ComSpec & " /c " & 'Lance-Ftp.cmd', "",@SW_HIDE ) ; don't forget " " before "/c"
MsgBox(0, "Enregistrement", "La création du compte est terminée, le compte sera actif dans 10 minutes", 5)


DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)


Func Example()
    Global  $NomFTP, $Mdp, $cmdOK, $CmdCancel, $msg,  $Chemin
    
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
      
GUICreate("Creation compte FTP sur le serveur de Rungis Support Logiciels", 568, 261, 370, 279)
    
    GUICtrlCreateLabel("Nom Ftp:", 11, 13, 131, 13)
    GUICtrlCreateLabel("Nom du client par exemple", 310, 13, 131, 13)
    $NomFTP = GUICtrlCreateInput($Nom, 143, 11, 165, 23)
    
    GUICtrlCreateLabel("Mot de passe", 11, 44, 131, 13)
    GUICtrlCreateLabel("Mot de passe obligatoire", 310, 44, 131, 13)
    $Mdp = GUICtrlCreateInput($Mdp, 143, 41, 165, 23)
    $cmdOK = GUICtrlCreateButton("OK", 152, 160, 75, 23)
    $cmdCancel= GUICtrlCreateButton("Cancel", 263, 160, 75, 23)
        GUICtrlCreateLabel("Accès par l'adresse publique du FTP: 80.XXX.127.XXX ", 11, 81, 540, 13)
        GUICtrlCreateLabel("Accès à Rungis par  l'adresse  du FTP: 89.XX.20.XX", 11, 121, 540, 13)
    ;GUICtrlCreateLabel("Bien verifier toutes les informations, vous pouvez effacer et copier-coller.", 11, 198, 540, 13)
GUICtrlCreateLabel("Veuillez attendre le message de confirmation quelques secondes après avoir cliqué sur Ok .", 11, 190, 540, 13)

GUISetFont(7, 400, 2, "Trebuchet MS Bold Italic ")  
GUICtrlCreateLabel(" V2 Powered by Gds", 450, 208, 540, 13)

    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
        Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "", "Vous avez cliqué sur la croix, la fenêtre va se fermer",3)
                DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
                Exit
    
            
        Case $msg= $cmdCancel
            DirRemove(@HomeDrive & @HomePath & "\temp\ftp\", 1)
            Exit
        Case $msg =  $cmdOK
            
            ExitLoop
        EndSelect
    WEnd
    
EndFunc   ;

2éme Partie recuperation du fichier dans le repertoir où elle a été poser pour l'ecrire dans un php et le lancé avec un .bat

► Afficher le texte

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>
$work="d:\Ftp\adm"
$search = FileFindFirstFile($work &"\*.conf")  

; Check if the search was successful
If $search = -1 Then
    ;MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

local $array, $fing ,$File1 ,$File2, $File3, $dir1, $dir2, $File4, $File5, $Dir4,$nomftp ,$mdp
$fing=_FileListToArray($work,"*.conf", 0)
$dir1 ="D:\historique\"
$dir2 ="D:\Traitement\"
$File2 ="D:\Traitement\config.txt"
$File3 ="D:\Traitement\user.php"
$File4="C:\Program Files\PHP\user.php"
$dir4="C:\Program Files\PHP\"
$file5="D:\Ftp\compte-mdp.txt "
;If $fing[0]= 0 then exit
For $i = 1 To $fing[0]
    Sleep(1000)
    FileDelete ($file2)
    ;FileMove ($File2, $Dir1,1)
    
     ;MsgBox(0, "Ligne 14", $fing[$i])
   FileCopy($work &"\" & $fing[$i], $File2)
    FileMove ($work &"\" & $fing[$i], $dir1,1)
    FileDelete ($file3)
    FileCopy($file4, $File3)
     ;MsgBox(0, "Ligne 19", $fing[$i])
    $file = FileOpen($File2, 0)
        For $a=1 to 4
            $line = FileReadLine($file)
                If $a=1 Then
                $retval = _ReplaceStringInFile($file3,"nomftp",$line)
                $nomftp = $line
                endif
                    If $a=2 Then
                    $retval = _ReplaceStringInFile($file3,"mdp",$line)
                    $mdp = $line
                    endif
                        If $a=3 Then
                        $retval = _ReplaceStringInFile($file3,"emplacement","d:\\ftp\" & $line & "\" & $nomftp )
                        DirCreate("d:\\ftp\" & $line & "\" & $nomftp )
                        endif
                            If $a=4 Then
                            $retval = _ReplaceStringInFile($file3,"permission",$line)
                        endif
            
            
                        
                    Next
                    $file1 = FileOpen($File5, 1)
                    FileWrite($file1, $nomftp &" "& $mdp & @CRLF)
                     FileClose($file1)
                    ShellExecute ("C:\scripts\ftp\Createuser.cmd")
                    
                        Sleep(5000)
 FileClose($file)

 ;MsgBox(0, "", $fing[$i])
 
 

Next
;nomftp;mdp;emplacement;permission

3eme Partie est le user.php qui se remplie avec le scripte de la 2eme parie pour modifier le XML qui ajoute le user et donne les droits au rep crée dans la 2eme partie

► Afficher le texte

Code : Tout sélectionner

<?php

if (create_ftpuser('nomftp', 'mdp', 'emplacement', $droit='permission')) echo 'OK';
function create_ftpuser($pseudo, $password, $chemin, $droit='239')
{   
   set_time_limit(5);
   
   if ($socket = fsockopen('127.0.0.1', '14147', $errno, $errstr, 10)) 
   {
    $ConnectionState=1;
    while ($readString .= fread($socket,8192))
    {
            switch ($ConnectionState)
            {
            case 1: 
                if (substr($readString,0,3)=='FZS')
        {
                    $ConnectionState = 2; 
                    fputs($socket, chr(8).chr(0).chr(0).chr(0).chr(0).chr(12).chr(1).chr(0).chr(0).chr(0).chr(0));
                }
                $readString='';
            break;
            
            case 2:
        switch(ord(substr($readString,0,1)))
        {
        case 33:
            fputs($socket, chr(32).chr(0).chr(0).chr(0).chr(0));  
            break;
        case 9:
            fputs($socket, chr(24).chr(0).chr(0).chr(0).chr(0));
            $ConnectionState=3;
            break;
        }
              $readString='';
      break;
            
        case 3:
            switch(ord(substr($readString,0,1)))
            {
                case 25:
            if ((strlen($readString)) != (( ord(substr($readString,2,1)) * 256)  + ord(substr($readString,1,1)) + 5)) 
            {
            }
            else
            {   
            $password=md5($password);
            $readString = substr($readString,4);
            $datass='';
            
            echo '<b>Nombre de comptes sur le serveur FTP: '.ord(substr($readString,4,1)).'</b><br>';
            
            $datass = chr(0).chr(0).chr(0).chr(ord(substr($readString,4,1))+1).substr($readString,5);
            $datass.= shoot('0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 1 0 '.strlen($chemin)).$chemin;
            $datass.= shoot('0 0 1 '.$droit.' 0 0 10 0 0 0 0 10 0 0 0 0 0 0 '.strlen($pseudo));
            $datass.= $pseudo.shoot('0 '.strlen($password)).$password;
            
            fputs($socket,create_requete($datass,'24'));  
            $ConnectionState=4;
            echo strlen($readString);
            $readString='';
          }
          break;
        }
            break;
            case 4:
                switch(ord(substr($readString,0,1)))
                {
                case 25:
                  fclose($socket);
                    return true;
                break;
                }
                $readString='';
            break;
            }
        }
  } 
fclose($socket);
return false;
}
function shoot($data){
    $buffer=explode(' ',$data);
    foreach($buffer as $lettre){
        $retour.=chr($lettre);
    }
 return $retour;
}
function create_requete($data,$commande){
    $req = chr($commande);
    if (strlen($data)>255)
    {
        $var1 = (strlen($data)/256);
        $var1 = substr($var1,0,strpos($var1,'.') );
        $var2 = (strlen($data)-($var1*256));
        $req .=chr($var2).chr($var1);
        $req .=chr(0).chr(0);
    }
  else
  {
        $var1 = (strlen($data)-($var1*256));
        $req .=chr($var1).chr(0);
        $req .=chr(0).chr(0);
    }
    $req .= $data;
 return $req;
}
?>

Mon problème est avec le php, car les lignes qui doit etre ajouté dans le xml pour crée le user, ne s'ajoute pas j'ai un message d'erreur dans que je remonte avec le batch dans un fichier txt qui dit

Code : Tout sélectionner

Notice: Undefined variable: readString in C:\FTP\Traitement\user.php on line 11 Fatal error: Maximum execution time of 5 seconds exceeded in C:\FTP\Traitement\user.php on line 11

Un dernier point voici le batch qui est lancé avec l'autoit du 2eme partie

Code : Tout sélectionner

"C:\Program Files\PHP\php.exe" "D:\Traitement\user.php" /PHP -f user.php >> c:\scripts\ftp\creatuser.txt

Voilà j'espaire que vous pouvez m'aider

[sylvanie]

Merci d'utiliser les balises "spoiler" pour les longs codes

[turistceto]

Désolé je n'ai pas pensé aux balises ,

Est ce que qelqu'un à une idé pour mon problème ?

[Tlem]

Bonjour,
Ne serait-il pas plus simple d'installer un client de bureau à distance genre TeamViewer et de faire ça tranquillement ?
Je suppose que vous n'avez pas besoin de créer un compte toutes les 5 minutes !

[turistceto]

Bonjour,

C'est vrai que je ne crée pas de compte tous les 5min. mais le bute de l'operation et de partager mon FTP avec des amis qui ne sont pas exeptionellement en France et pas avec le même fuseau horaire.

[Tlem]

Quel est le rapport entre le lieu, le fuseau horaire et la création d'un compte FTP ?

Si un utilisateur X ce trouvant au Canada à besoin d'un accès à votre FTP, vous ne ferez la manip que lorsque vous recevrez son mail, donc lorsque vous serez réveillé !!!

Après, tout est possible, mais la complexité de ce qu'il y a à faire me semble 'to much' pour ce genre de chose.
Au mieux créez un compte X en lecture seule ou avec quota limité et donnez les identifiants de ce compte (que vous renouvellerez régulièrement).

[turistceto]

Bonsoir Tlem,

Oui c'est vrai que je peux crée le compte apres reception de mail , mais quand en a un utilitaire comme autoit pourquoi ne pas automatiser la chosse !!!

Meme si vous ne voulais pas rédiger le scripte diriger moi vers une idée pour que je puisse le créer moi même SVP

j'ai trouvé _XMLDomWrapper.au3 comme modification xml mais je ne comprend rien, car je suis vraiment null en scripting, dans le precedant poste que j'ai envoyé les scripts autoit fonctionne très bien sauf la partie PHP pour modifier le XML, mon seul soucci est de modifier le fichier XML de FileZilla.

Si vous avez une idée pour ajouter le user a crée via le XML je suis preneur.

j'ai en mem temps trouvé ceci mais je ne sais pas comment le rediger:

► Afficher le texte

#Include <_XMLDomWrapper.au3>
$path = @ScriptDir&"\test.xml"
$root = "FileZillaServer"
_XMLCreateFile ($path, $root, True); create file with root data
$hXml= _XMLFileOpen($path)
_XMLCreateRootChild("Users", "" , "")

;*******************************
Dim $user = "ludo-rds"
Dim $Keys[1]
Dim $Values[1]

$Keys[0] = "Name"
$Values[0] = $user
_XMLCreateChildWAttr("//Users", "User", $Keys, $Values)

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[1]","Name", "Pass")


_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[2]","Name", "Group")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[3]","Name", "Bypass server userlimit")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[4]","Name", "User Limit")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[5]","Name", "IP Limit")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[6]","Name", "Enabled")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[7]","Name", "Comments")

_XMLCreateChildNode("//User", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Option[8]","Name", "ForceSsl")

_XMLUpdateField("//User/Option[1]", "")
_XMLUpdateField("//User/Option[2]", "")
_XMLUpdateField("//User/Option[3]", "0")
_XMLUpdateField("//User/Option[4]", "0")
_XMLUpdateField("//User/Option[5]", "0")
_XMLUpdateField("//User/Option[6]", "1")
_XMLUpdateField("//User/Option[7]", "")
_XMLUpdateField("//User/Option[8]", "0")


;*********************************
_XMLCreateChildNode("//User", "IpFilter", "", "")
_XMLCreateChildNode("//IpFilter", "Disallowed", "", "")
_XMLCreateChildNode("//IpFilter", "Allowed", "", "")
;*********************************

;*********************************
_XMLCreateChildNode("//User", "Permissions", "", "")
$Keys[0] = "Dir"
$Values[0] = $user

_XMLCreateChildWAttr("//Permissions", "Permission", $Keys, $Values)

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[1]","Name", "FileRead")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[2]","Name", "FileWrite")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[3]","Name", "FileDelete")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[4]","Name", "FileAppend")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[5]","Name", "DirCreate")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[6]","Name", "DirDelete")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[7]","Name", "DirList")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[8]","Name", "DirSubdirs")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[9]","Name", "IsHome")

_XMLCreateChildNode("//Permission", "Option", " ", "")
_XMLSetAttrib($root&"/Users/User/Permissions/Permission/Option[10]","Name", "AutoCreate")

_XMLUpdateField("//Permission/Option[1]", "1")
_XMLUpdateField("//Permission/Option[2]", "0")
_XMLUpdateField("//Permission/Option[3]", "0")
_XMLUpdateField("//Permission/Option[4]", "0")
_XMLUpdateField("//Permission/Option[5]", "0")
_XMLUpdateField("//Permission/Option[6]", "0")
_XMLUpdateField("//Permission/Option[7]", "1")
_XMLUpdateField("//Permission/Option[8]", "1")
_XMLUpdateField("//Permission/Option[9]", "1")
_XMLUpdateField("//Permission/Option[10]", "0")
;*********************************

;*********************************
Dim $Keys[6]
Dim $Values[6]
$Keys[0] = "DlType"
$Values[0] = "0"
$Keys[1] = "DlLimit"
$Values[1] = "10"
$Keys[2] = "ServerDlLimitBypass"
$Values[2] = "0"
$Keys[3] = "UlType"
$Values[3] = "0"
$Keys[4] = "UlLimit"
$Values[4] = "10"
$Keys[5] = "ServerUlLimitBypass"
$Values[5] = "0"

_XMLCreateChildWAttr("//User", "SpeedLimits", $Keys, $Values)
_XMLCreateChildNode("//SpeedLimits", "Download", "", "")
_XMLCreateChildNode("//SpeedLimits", "Upload", "", "")

[turistceto]

Toujours paersonnes pour m'aider SVP ??

[turistceto]

Pas de lumière pour m'éclairer SVPPPPPPP

[sylvanie]

Bonjour,
j'ai un peu regardé sur le net, pour les création de compte pour Filezilla server, et j'ai trouvé ce lien :
http://forum.filezilla-project.org/view ... f=6&t=5310

qui présente 2 scripts add/delete user en VBS. Maintenant il faudrait les traduire ...

Ou alors à la rigueur postez le contenu du fichier xml avant et après ajout d'un user pour voir si on peut faire un parser maison

[Tlem]

Même chose ici : http://wiki.filezilla-project.org/Trans ... FTP_Server

[turistceto]

Merci a vous pour vos réponse,

voici mon fichier xml apres ajout utilisateur

► Afficher le texte

- <FileZillaServer>
- <Settings>
<Item name="Admin port" type="numeric">14147</Item>
</Settings>
</FileZillaServer>

voici mon fichier xml apres ajout utilisateur

► Afficher le texte

- <FileZillaServer>
- <Settings>
<Item name="Admin port" type="numeric">14147</Item>
</Settings>
<Groups />
- <Users>
- <User Name="turistceto">
<Option Name="Pass">e10adc3949ba59abbe56e057f20f883e</Option>
<Option Name="Group" />
<Option Name="Bypass server userlimit">0</Option>
<Option Name="User Limit">0</Option>
<Option Name="IP Limit">0</Option>
<Option Name="Enabled">1</Option>
<Option Name="Comments" />
<Option Name="ForceSsl">0</Option>
- <IpFilter>
<Disallowed />
<Allowed />
</IpFilter>
- <Permissions>
- <Permission Dir="C:\TEMP">
<Option Name="FileRead">1</Option>
<Option Name="FileWrite">1</Option>
<Option Name="FileDelete">1</Option>
<Option Name="FileAppend">1</Option>
<Option Name="DirCreate">1</Option>
<Option Name="DirDelete">1</Option>
<Option Name="DirList">1</Option>
<Option Name="DirSubdirs">1</Option>
<Option Name="IsHome">1</Option>
<Option Name="AutoCreate">0</Option>
</Permission>
</Permissions>
- <SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="0" UlType="0" UlLimit="10" ServerUlLimitBypass="0">
<Download />
<Upload />
</SpeedLimits>
</User>
</Users>
</FileZillaServer>

Merci encore pour votre aide

[sylvanie]

Ok, merci
Je m'étais lancé dans la traduction du script Perl donné par Tlem.
Le voici, il est syntaxiquement bon, mais je l'ai peu testé.
C'est pas encore ça, mais on s'en approche.
Je ne pourrai pas le retoucher avant pas mal de temps.
Si ça peut commencer à débloquer la situation ...

► Afficher le texte

Code : Tout sélectionner

#include <Crypt.au3>
#include <Array.au3>

Func copyrights($perm)
    Local $rights=""
    if Not IsArray($perm) Then Return ""
    _ArrayDisplay($perm)
    If UBound($perm) <> 8 Then Return ""
    if ($perm[0] = "-") Then
        $rights &= '<Option Name="FileRead">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileRead">1</Option>'&@CRLF
    EndIf
    if ($perm[1] = "-") Then
        $rights &= '<Option Name="FileWrite">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileWrite">1</Option>'&@CRLF
    EndIf
    if ($perm[2] = "-") Then
        $rights&= '<Option Name="FileDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="FileDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[3] = "-") Then
        $rights&= '<Option Name="FileAppend">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="Fileappend">1</Option>'&@CRLF
    EndIf
    if ($perm[4] = "-") Then
        $rights&= '<Option Name="DirCreate">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirCreate">1</Option>'&@CRLF
    EndIf
    if ($perm[5] = "-") Then
        $rights&= '<Option Name="DirList">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirList">1</Option>'&@CRLF
    EndIf
    if ($perm[6] = "-") Then
        $rights&= '<Option Name="DirDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[7] = "-") Then
        $rights&= '<Option Name="DirSubdirs">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirSubdirs">1</Option>'&@CRLF
    EndIf
    return $rights
EndFunc

$hnd_fileini=FileOpen( "user.ini" , 0)
If $hnd_fileini = -1 Then Exit MsgBox(16,"Error","File can t be read !")

$motiflogin = 'Login='
$motifpass = 'Pass='
$motifdir='Dir'
$motifattr='Attr'

$debut = '<FileZillaServer>'&@CRLF _
&'<Settings>'&@CRLF _
&'<Item name="Admin port" type="numeric">14147</Item>'&@CRLF _
&'</Settings>'&@CRLF _
&'<Groups/>'&@CRLF _
&'<Users>'

$paramdivers = '<Option Name="Group"/>'&@CRLF _
&'<Option Name="Bypass server userlimit">0</Option>'&@CRLF _
&'<Option Name="User Limit">0</Option>'&@CRLF _
&'<Option Name="IP Limit">0</Option>'&@CRLF _
&'<Option Name="Enabled">1</Option>'&@CRLF _
&'<Option Name="Comments"/>'&@CRLF _
&'<Option Name="ForceSsl">0</Option>'&@CRLF _
&'<IpFilter>'&@CRLF _
&'<Disallowed/>'&@CRLF _
&'<Allowed/>'&@CRLF _
&'</IpFilter>'&@CRLF _
&'<Permissions>'


$userfin = '</Permissions>'&@CRLF _
&'<SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="0" UlType="0" UlLimit="10" ServerUlLimitBypass="0">'&@CRLF _
&'<Download/>'&@CRLF _
&'<Upload/>'&@CRLF _
&'</SpeedLimits>'&@CRLF _
&'</User>'

$fin = '</Users>'&@CRLF _
&'</FileZillaServer>'

$i=0;
$fz=$debut;
while (1)
    $ligne = FileReadLine($hnd_fileini)
    If @error=-1 Then ExitLoop
    If StringRegExp($ligne,"^"&$motiflogin&"[\.\w-]*") Then
        Local $loginname=StringRegExpReplace($ligne,$motiflogin&"\s*=\s*","")
        $fz&=$loginname&@CRLF
        $i+=1
        $h=1
    ElseIf StringRegExp($ligne,"^"&$motifpass&"[\.\w-]*") Then
        Local $passwd=StringRegExpReplace($ligne,$motifpass&"\s*=\s*","")
        _Crypt_Startup()
        $passwd=StringLower(StringReplace(_Crypt_HashData($passwd,$CALG_MD5),"0x",""))
        _Crypt_Shutdown()
        $fz&='<Option Name=\"Pass\">'&$passwd&'</Option>'&@CRLF
    Elseif StringRegExp($ligne,"^"&$motifdir&"[\w\s\.\\:=]*") Then
        Local $dir=StringRegExpReplace($ligne,"^"&$motifdir&"[\w\s\.\\:=]*(.+)","$1")
        $fz&= '<Permission Dir=\"'&$dir&'\>'&@CRLF
    ElseIf StringRegExp($ligne,"^"&$motifattr&"[\s=]*") Then
        Local $attr=StringRegExpReplace($ligne,"^"&$motifattr&"[\s=]*(.+)","$1")
        Local $tab_perm=StringSplit($attr,"",2) ;;Attention, gros doute sur le délimiteur
        $fz&=copyrights($tab_perm)
        $fz&= '<Option Name="IsHome">'&$h&'</Option>'&@CRLF
        $fz&= '<Option Name="AutoCreate">0</Option>'&@CRLF&'</Permission>'&@CRLF
        $h=0;
    elseif ($ligne = @CRLF) Then
        $fz&= $userfin&@CRLF
    EndIf
WEnd
$fz&= $fin
FileClose($hnd_fileini)
$hnd_filexml=FileOpen("FileZilla Server_autoitgenerated.xml",1)
If $hnd_filexml=-1 Then Exit MsgBox(16,"Error","File can't be written !")
FileWrite($hnd_filexml,$fz)
FileClose($hnd_filexml)
MsgBox(0,"User creation OK",$i&' account created')

Exit 0



 

Pour le fichier "user.ini" qui doit être placé dans le même workingdir que le script, il doit être à vu de nez comme ça :

Code : Tout sélectionner

Login=toto
motifpass=passwordtoto
Dir="C:\totodir"
Attr=-+---+-+

 

J'ai mis les attributs au pif

[turistceto]

Merci Beaucoup Sylvanie,

A vrai dire je ne sais pas comment utiliser ton scripts, j'attends de tes bonnes nouvelles avec des commentaire pour le scripts final, car comme j'avais indiqué je suis une quiche niveau scripts.

mais je vais quand meme regarder et essayer de comprendre ton script.

En esperant d'avoir le resultat final et Merci encore

[sylvanie]

voici une mouture créant donc la même structure (à un doute près, voir à la fin de ce post).
Ce script test en plus si le user existe ou pas et gère un mode append (contrairement au script Perl qui de base regénérait toute la conf et tant pis pour les users existant...)

► Afficher le texte

Code : Tout sélectionner

#include <Crypt.au3>
#include <Array.au3>

Func copyrights($perm)
    Local $rights=""
    if Not IsArray($perm) Then Return ""
    If UBound($perm) <> 8 Then
        MsgBox(16,"Erreur","Erreur dans le fichier de configuration sur les permissions")
        _ArrayDisplay($perm)
        exit 2
    EndIf
    if ($perm[0] = "-") Then
        $rights &= '<Option Name="FileRead">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileRead">1</Option>'&@CRLF
    EndIf
    if ($perm[1] = "-") Then
        $rights &= '<Option Name="FileWrite">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileWrite">1</Option>'&@CRLF
    EndIf
    if ($perm[2] = "-") Then
        $rights&= '<Option Name="FileDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="FileDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[3] = "-") Then
        $rights&= '<Option Name="FileAppend">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="FileAppend">1</Option>'&@CRLF
    EndIf
    if ($perm[4] = "-") Then
        $rights&= '<Option Name="DirCreate">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirCreate">1</Option>'&@CRLF
    EndIf
    if ($perm[5] = "-") Then
        $rights&= '<Option Name="DirList">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirList">1</Option>'&@CRLF
    EndIf
    if ($perm[6] = "-") Then
        $rights&= '<Option Name="DirDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[7] = "-") Then
        $rights&= '<Option Name="DirSubdirs">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirSubdirs">1</Option>'&@CRLF
    EndIf
    return $rights
EndFunc

$fichier_destination="FileZilla Server_autoitgenerated.xml"
$old_content=""
If FileExists($fichier_destination) Then $old_content=FileRead($fichier_destination)
$hnd_fileini=FileOpen( "user.ini" , 0)
If $hnd_fileini = -1 Then Exit MsgBox(16,"Error","File can t be read !")

$motiflogin = 'Login='
$motifpass = 'Pass='
$motifdir='Dir'
$motifattr='Attr'

$debut = '<FileZillaServer>'&@CRLF _
&'<Settings>'&@CRLF _
&'<Item name="Admin port" type="numeric">14147</Item>'&@CRLF _
&'</Settings>'&@CRLF _
&'<Groups/>'&@CRLF _
&'<Users>'&@CRLF

$paramdivers = '<Option Name="Group"/>'&@CRLF _
&'<Option Name="Bypass server userlimit">0</Option>'&@CRLF _
&'<Option Name="User Limit">0</Option>'&@CRLF _
&'<Option Name="IP Limit">0</Option>'&@CRLF _
&'<Option Name="Enabled">1</Option>'&@CRLF _
&'<Option Name="Comments"/>'&@CRLF _
&'<Option Name="ForceSsl">0</Option>'&@CRLF _
&'<IpFilter>'&@CRLF _
&'<Disallowed/>'&@CRLF _
&'<Allowed/>'&@CRLF _
&'</IpFilter>'&@CRLF _
&'<Permissions>'


$userfin = '</Permissions>'&@CRLF _
&'<SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="0" UlType="0" UlLimit="10" ServerUlLimitBypass="0">'&@CRLF _
&'<Download/>'&@CRLF _
&'<Upload/>'&@CRLF _
&'</SpeedLimits>'&@CRLF _
&'</User>'

$fin = '</Users>'&@CRLF _
&'</FileZillaServer>'

$i=0;
$fz=$debut
$ignore=0
while (1)
    $ligne = FileReadLine($hnd_fileini)
    If @error=-1 Then ExitLoop
    If StringRegExp($ligne,"^"&$motiflogin&"[\.\w-]*") Then
        Local $loginname=StringRegExpReplace($ligne,$motiflogin&"\s*","")
        $ignore=0
        If StringInStr($old_content,'User Name="'&$loginname&'"') Then
            ConsoleWrite($loginname&" already exists"&@CRLF)
            $ignore=1
            ContinueLoop
        EndIf
        $fz&='<User Name="'&$loginname&'">'&@CRLF
        $i+=1
        $h=1
    ElseIf StringRegExp($ligne,"^"&$motifpass&"[\.\w-]*") Then
        If $ignore Then ContinueLoop
        Local $passwd=StringRegExpReplace($ligne,$motifpass&"\s*=\s*","")
        _Crypt_Startup()
        $passwd=StringLower(StringReplace(_Crypt_HashData($passwd,$CALG_MD5),"0x",""))
        _Crypt_Shutdown()
        $fz&='<Option Name="Pass">'&$passwd&'</Option>'&@CRLF
        $fz&= $paramdivers&@CRLF
    Elseif StringRegExp($ligne,"^"&$motifdir&"[\w\s\.\\:=]*") Then
        If $ignore Then ContinueLoop
        Local $dir=StringRegExpReplace($ligne,"^"&$motifdir&"[\w\s\.\\:=]*(.+)","$1")
        $fz&= '<Permission Dir='&$dir&'>'&@CRLF
    ElseIf StringRegExp($ligne,"^"&$motifattr&"[\s=]*") Then
        If $ignore Then ContinueLoop
        Local $attr=StringRegExpReplace($ligne,"^"&$motifattr&"[\s=]*(.+)","$1")
        Local $tab_perm=StringSplit($attr,"",2)
        $fz&=copyrights($tab_perm)
        $fz&= '<Option Name="IsHome">'&$h&'</Option>'&@CRLF
        $fz&= '<Option Name="AutoCreate">0</Option>'&@CRLF&'</Permission>'&@CRLF
        $h=0;
    elseif ($ligne = "") Then
        $fz&= $userfin&@CRLF
    EndIf
WEnd
$fz&= $fin
FileClose($hnd_fileini)
If $i=0 Then Exit MsgBox(0,"User creation OK",$i&' account created')

If Not FileExists($fichier_destination) Or (FileGetSize($fichier_destination)=0) Then
    FileWrite($fichier_destination,$fz)
Else
    $partie_useronly=StringRegExp($fz,"(?s)<User Name=.+</User>",1)
    ConsoleWrite($partie_useronly[0]&@CRLF)
    $hnd_filexml=FileOpen("FileZilla Server_autoitgenerated.xml",2)
    If $hnd_filexml=-1 Then Exit MsgBox(16,"Error","File can't be written !")
    $fz=StringReplace($old_content,'</Users>',$partie_useronly[0]&@CRLF&'</Users>')
    FileWrite($hnd_filexml,$fz)
    FileClose($hnd_filexml)
EndIf
MsgBox(0,"User creation OK",$i&' account created')

Exit 0



 

Maintenant, comment l'utiliser ?

Il faut créer un fichier "user.ini" ressemblant àà ceci :

Code : Tout sélectionner

Login=toto3
Pass=passwordtoto3
Dir="C:\totodir"
Attr=++++++++
Login=toto4
Pass=passwordtoto4
Dir="C:\totodir"
Attr=++++++++

 

Avec le dernier retours chariot à la fin !
pour Login,Pass et Dir, je pense que vous avez compris ce que c'est. Pour Attr, c'est plus tordu. J'ai réutilisé l'éxistant du script, à savoir :
Il s'agit d'une chaîne de 8 caractère "+" et "-" positionnant donc "1" ou "0" sur les options de droits.
Le premier étant "Fileread", et pour les 2 à 8, cf la fonction copyrights

Maintenant le loup : dans votre copier/coller, il y a des '-' qui précèdent certaines lignes et je me demande si ce n'est pas dû à un facétie du copier/coller car ça fait pas vraiment Xml cette histoire ...
Donc je les ai évité.
A tester donc sur votre installation.
Ah oui, le fichier de conf généré s'appelle "FileZilla Server_autoitgenerated.xml" pour ne pas écraser votre vrai, conf. Je vous laisse le soins de remplacer manuellement pour les tests.
Puis on rectifiera pour le mode "full update"

[turistceto]

Bonjour Sylvanie et merci beaucoup pour ton aide,

Effectivement je me suis rendu compte apres avoir posté le XML, dans mon fichier XML d'origine le signe "-" n'existe pas si je l'ouvre avec un editeur de texte.
C'est IE qui là mis sous cette forme, désolé.

Je vais tester puis te tenir au courant ,mais juste une chause qui me pertuber.

Comment générer le fichier user.ini? C'est le script que je donne au copin qui va le générer sur mon FTP?
Car si tu as vue dans les premier poste que j'ai ecrit, il y a un scripts qui permet de generer un .txt qui est posé sur le serveur il suffit que je modifi les ligne de txt comme dans ton .ini ??

Merci encore à toi

[turistceto]

Syvanie,

Mauvaise nouvelle, ca ne fonctionne pas.

quand je lance le scripte en lui indiquant le chemin ou se trouve mon "Filezilla server.xml", il me genere un message d'erreur la voici

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\scripts\FZS\Creation_user_FTP.au3"
C:\scripts\FZS\Creation_user_FTP_test.au3 (147) : ==> Subscript used with non-Array variable.:
ConsoleWrite($partie_useronly[0]&@CRLF)
ConsoleWrite($partie_useronly^ ERROR
>Exit code: 1 Time: 0.320

Mais si je laisse gènère le fichier XML automatiquement par ton script sans rien modifier, les compte se crée mais FileZilla ne l'accepte pas, et aussi j'ai déjà un XML avec baucoup de user enregistré je souhaiterais utiliser mon fichier existant au lieux de partir d'un fichier vierge.

[sylvanie]

Bonjour, et bien là effectivement, le fichier ini est adapté au script traduit existant, et non au post original.
Il va falloir le traduire. Pour aujourd'hui, je ne pense pas pouvoir le faire ...
Quant à l'erreur c'est parce que je n'ai pas fais de claose de sortie en cas de fichier ini mal formé.
j'ai rajouté cette close ici pour être plus propre, mais ça ne résout pas le problème.

► Afficher le texte

Code : Tout sélectionner

#include <Crypt.au3>
#include <Array.au3>

Func copyrights($perm)
    Local $rights=""
    if Not IsArray($perm) Then Return ""
    If UBound($perm) <> 8 Then
        MsgBox(16,"Erreur","Erreur dans le fichier de configuration sur les permissions")
        _ArrayDisplay($perm)
        exit 2
    EndIf
    if ($perm[0] = "-") Then
        $rights &= '<Option Name="FileRead">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileRead">1</Option>'&@CRLF
    EndIf
    if ($perm[1] = "-") Then
        $rights &= '<Option Name="FileWrite">0</Option>'&@CRLF
    else
        $rights &= '<Option Name="FileWrite">1</Option>'&@CRLF
    EndIf
    if ($perm[2] = "-") Then
        $rights&= '<Option Name="FileDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="FileDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[3] = "-") Then
        $rights&= '<Option Name="FileAppend">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="FileAppend">1</Option>'&@CRLF
    EndIf
    if ($perm[4] = "-") Then
        $rights&= '<Option Name="DirCreate">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirCreate">1</Option>'&@CRLF
    EndIf
    if ($perm[5] = "-") Then
        $rights&= '<Option Name="DirList">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirList">1</Option>'&@CRLF
    EndIf
    if ($perm[6] = "-") Then
        $rights&= '<Option Name="DirDelete">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirDelete">1</Option>'&@CRLF
    EndIf
    if ($perm[7] = "-") Then
        $rights&= '<Option Name="DirSubdirs">0</Option>'&@CRLF
    else
        $rights&= '<Option Name="DirSubdirs">1</Option>'&@CRLF
    EndIf
    return $rights
EndFunc

$fichier_destination="FileZilla Server_autoitgenerated.xml"
$old_content=""
If FileExists($fichier_destination) Then $old_content=FileRead($fichier_destination)
$hnd_fileini=FileOpen( "user.ini" , 0)
If $hnd_fileini = -1 Then Exit MsgBox(16,"Error","File can t be read !")

$motiflogin = 'Login='
$motifpass = 'Pass='
$motifdir='Dir'
$motifattr='Attr'

$debut = '<FileZillaServer>'&@CRLF _
&'<Settings>'&@CRLF _
&'<Item name="Admin port" type="numeric">14147</Item>'&@CRLF _
&'</Settings>'&@CRLF _
&'<Groups/>'&@CRLF _
&'<Users>'&@CRLF

$paramdivers = '<Option Name="Group"/>'&@CRLF _
&'<Option Name="Bypass server userlimit">0</Option>'&@CRLF _
&'<Option Name="User Limit">0</Option>'&@CRLF _
&'<Option Name="IP Limit">0</Option>'&@CRLF _
&'<Option Name="Enabled">1</Option>'&@CRLF _
&'<Option Name="Comments"/>'&@CRLF _
&'<Option Name="ForceSsl">0</Option>'&@CRLF _
&'<IpFilter>'&@CRLF _
&'<Disallowed/>'&@CRLF _
&'<Allowed/>'&@CRLF _
&'</IpFilter>'&@CRLF _
&'<Permissions>'


$userfin = '</Permissions>'&@CRLF _
&'<SpeedLimits DlType="0" DlLimit="10" ServerDlLimitBypass="0" UlType="0" UlLimit="10" ServerUlLimitBypass="0">'&@CRLF _
&'<Download/>'&@CRLF _
&'<Upload/>'&@CRLF _
&'</SpeedLimits>'&@CRLF _
&'</User>'

$fin = '</Users>'&@CRLF _
&'</FileZillaServer>'

$i=0;
$fz=$debut
$ignore=0
while (1)
    $ligne = FileReadLine($hnd_fileini)
    If @error=-1 Then ExitLoop
    If StringRegExp($ligne,"^"&$motiflogin&"[\.\w-]*") Then
        Local $loginname=StringRegExpReplace($ligne,$motiflogin&"\s*","")
        $ignore=0
        If StringInStr($old_content,'User Name="'&$loginname&'"') Then
            ConsoleWrite($loginname&" already exists"&@CRLF)
            $ignore=1
            ContinueLoop
        EndIf
        $fz&='<User Name="'&$loginname&'">'&@CRLF
        $i+=1
        $h=1
    ElseIf StringRegExp($ligne,"^"&$motifpass&"[\.\w-]*") Then
        If $ignore Then ContinueLoop
        Local $passwd=StringRegExpReplace($ligne,$motifpass&"\s*=\s*","")
        _Crypt_Startup()
        $passwd=StringLower(StringReplace(_Crypt_HashData($passwd,$CALG_MD5),"0x",""))
        _Crypt_Shutdown()
        $fz&='<Option Name="Pass">'&$passwd&'</Option>'&@CRLF
        $fz&= $paramdivers&@CRLF
    Elseif StringRegExp($ligne,"^"&$motifdir&"[\w\s\.\\:=]*") Then
        If $ignore Then ContinueLoop
        Local $dir=StringRegExpReplace($ligne,"^"&$motifdir&"[\w\s\.\\:=]*(.+)","$1")
        $fz&= '<Permission Dir='&$dir&'>'&@CRLF
    ElseIf StringRegExp($ligne,"^"&$motifattr&"[\s=]*") Then
        If $ignore Then ContinueLoop
        Local $attr=StringRegExpReplace($ligne,"^"&$motifattr&"[\s=]*(.+)","$1")
        Local $tab_perm=StringSplit($attr,"",2)
        $fz&=copyrights($tab_perm)
        $fz&= '<Option Name="IsHome">'&$h&'</Option>'&@CRLF
        $fz&= '<Option Name="AutoCreate">0</Option>'&@CRLF&'</Permission>'&@CRLF
        $h=0;
    elseif ($ligne = "") Then
        $fz&= $userfin&@CRLF
    EndIf
WEnd
$fz&= $fin
FileClose($hnd_fileini)
If $i=0 Then Exit MsgBox(0,"User creation OK",$i&' account created')

If Not FileExists($fichier_destination) Or (FileGetSize($fichier_destination)=0) Then
    FileWrite($fichier_destination,$fz)
Else
    $partie_useronly=StringRegExp($fz,"(?s)<User Name=.+</User>",1)
    If Not IsArray($partie_useronly) Then Exit MsgBox(16,"Error","Bad extract of user configuration")
    ConsoleWrite($partie_useronly[0]&@CRLF)
    $hnd_filexml=FileOpen("FileZilla Server_autoitgenerated.xml",2)
    If $hnd_filexml=-1 Then Exit MsgBox(16,"Error","File can't be written !")
    $fz=StringReplace($old_content,'</Users>',$partie_useronly[0]&@CRLF&'</Users>')
    FileWrite($hnd_filexml,$fz)
    FileClose($hnd_filexml)
EndIf
MsgBox(0,"User creation OK",$i&' account created')

Exit 0

 

pour la grammaire du fichier ini, il faut impérativement faire un dernier sut de ligne à la fin, c'est peut être ça le problème...

[Edit] Pour l'histoire des comptes existant, ce que vous pouvez faire, c'est copier/coller votre fichier d'origine avec le nom "FileZilla Server_autoitgenerated.xml" à la racine du scripte. Du coups vous ne partirez pas de 0.
Après ce qui serait intéressant c'est de faire un diff des 2 fichiers (original/sortie) pour localiser les changments pouvant poser problème.