Discussion :

[makubex]

bonjour je souhaite creer un petit script tout bete qui vas chercher une liste d'utilisateurs dans un fichier text et les ajoute en tant qu'utilisateurs. pour cela je lis mon fichier source ligne par lignes et je recupere les noms et prenom dans des variables. ensuite je souhaite lancer grace a a commande "system" une commande qui vas ajouter les utilisateurs en fonction des variables recupérés.

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
$file = 'g:\employes.txt';
open DATA, $file or die "Impossible de lire $file : $!\n";
 
while ($ligne = <DATA>)
{
if ($ligne =~/(\d+) (\S+) (\S+)/)
{
system 'dsadd User "cn=$3.$2, ou=test, dc=domaine, dc=local" -upn "$3.$2@domaine.local" -fn "$3" -ln "$2" -pwd "motdepasse" -disabled no";
}
}
close DATA;

Donc j'ai fait des test visiblement tout fonctionne. Je recupere bien la liste de nom/prenoms et ces derneirs sont bien affectés aux variables $2 et $3. Ma ligne "system" se lance bien mais au lieu de traiter les variable je me retrouve avec un utilisateur nommé "$3.$2"

J'ai certainement du oublier quelque chose... quelqu'un a une idée ?

[Jedai]

Les variables ne sont pas interpolées entre simple quotes '.
Il faut donc que tu utilises des doubles quotes (mais ça t'obligerais à échapper tous les doubles quotes dans ta commande) ou équivalent (pour éviter d'avoir à échapper) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
system qq(dsadd User "cn=$3.$2, ou=test, dc=domaine, dc=local" -upn "$3.$2@domaine.local" -fn "$3" ).
  qq(-ln "$2" -pwd "motdepasse" -disabled no);

--
Jedaï

[makubex]

tout fonctionne a merveil je te remercie ^^