Aide débutant Script Perl sous server 2008

Bonjour,

Voila je suis nouveau et je suis débutant sur perl, je dois faire quelque script perl sous server 2008 qui doit commander l'active Directory.
J'ai deja fait des script perl tout simple en renommant l'extension du fichier en .pl, avec google et quelque tuto je m'en sort finalement pas mal!
Mais je dois appliquer quelques script sous server 2008 avec l'AD, malgrer mes recherche google, je n'est pas trouvée grand chose.. je viens donc a votre aide! :)
Bon voila mes script version phrase! :lol:

-Générer un 1 mot de passe de 8 caracteres
Ma recherche google a abouti a cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

sub randomPassword { my $password; my $_rand;   my $password_length = $_[0]; if (!$password_length) { $password_length = 8; }   my @chars = split(" ", "a b c d e f g h i j k l m n o p q r s t u v w x y z - _ % # | 0 1 2 3 4 5 6 7 8 9");   srand;   for (my $i=0; $i <= $password_length ;$i++) { $_rand = int(rand 41); $password .= $chars[$_rand]; } return $password; }

---

Ce script ne fonctionne pas du tout.. Et je ne c'est pas comment le modifier pour le faire fonctionner avec l'AD de server 2008.

- Générer le login (1ere lettre du prénom en minuscule + NOM)
La encore chez google c'est le brouillard! :(

- Récupérer 1 info dans le fichier et affiche la valeur de 3 variables (nom/prenom)
De même rien trouver sur google :(

- Générer 1 compte utilisateur d'Active directory
idem! :(

En esperant avoir de l'aide de votre part!
Merci ! :D

pour les mots de passe avec une simple recherche google je tombe la dessus (modifier pour 8 caractères)

Code:

---

1 2 3 4 5 6 7 8 9 10

use strict; sub gen_passwd { my $password ; my @letters=( ('a'..'z'), ('A'..'Z'), (0..9) ); $password .= $letters[rand($#letters)] for (1..8) ; return $password ; }   my $password=gen_passwd(); print $password;

---

version courtes mais plus compliquée à comprendre :

Code:

---

1 2	my @c = ( 'A' .. 'Z', 'a' .. 'z', '0' .. '9' ); my $password = join '', map $c[rand @c], 1 .. 10;

---

pour le reste je n'ai jamais jouer avec AD mais avec une recherche sur CPAN j'ai trouvé ça

précision je n'est pas complètement adapter le script du mot de passe (le mien(honteusement pomper ;) )) n'autorise que les lettres Majuscules et minuscules, et les chiffres.

Citation:

---

Générer le login (1ere lettre du prénom en minuscule + NOM)

---

Code:

---

1 2 3 4

sub get_login{ my ($prenom, $nom) = @_; return lc(substr($prenom,0,1)).uc($nom); }

---

Citation:

---

- Récupérer 1 info dans le fichier et affiche la valeur de 3 variables (nom/prenom)

---

Quel fichier ?

Bonjour team-x380,

voici une version corrigée de ton programme et aussi plus "perliste":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use strict; use warnings;   print randomPassword(), "\n" for 1..5;   sub randomPassword {   my $pwd_len = shift; $pwd_len = 8 unless $pwd_len;   my @chars = ("a".."z", 0..9, qw / - _ % | /); # srand; inutile avec les versions modernes de Perl   my $password; # déclare tes variables le plus près possible de là où tu en as besoin, pas au début du programme ou de la fonction # for (my $i=0; $i <= $pwd_len ;$i++) { cette boucle est erronée, elle va générer une lettre de plus que le nombre voulu for (1..8) { $password .= $chars[ int(rand $#chars)]; } return $password; }

---

A l'exécution, elle imprime 5 mots de passe de 8 lettres ou caractères (puisque j'appelle la fonction 5 fois) sans lui passer d'argument:

Code:

---

1 2 3 4 5 6

vsnea2%4 suiviq69 cnebq7fr m0nz%7ny c8%7tkm5

---

La boucle for:

Code:

---

1 2 3 4

for (1..8) { $password .= $chars[ int(rand $#chars)]; }

---

j'aurais tendance à la réécrire comme suit:

Code:

---

1 2	$password .= $chars[ int(rand $#chars)] for 1..8;

---

Pour le reste de tes questions, c'est a priori très simple, mais donne un exemple de ton fichier et dis ce que tu veux récupérer dedans.