Salut tout le monde !

Comme dit dans le tire, je trouve net use un peu trop crado, et je ne saisis pas très bien comment utiliser Win32::NetResource pour lancer quelques commandes.
Je m'explique : Voici mon script
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
my $serveur = 'serveur';
my $domaine = 'domaine';
my $login = 'user';
my $password = 'pass';
 
my $net_use = `net use /delete q:` if (`Q:` ne "Le lecteur spécifié est introuvable.");
$net_use = `net use q: \\\\$serveur.$domaine\\d\$\\notes\\data /user:$login\@$domaine $password`;
 
my @lst = `dir /ad Q:`;
#print @lst;
 
my %arbo;
foreach (@lst) {
	chop;
	next unless /<REP>/;
	s/.*\s+<REP>\s+(.*)/\1/;
	$arbo{$_} = '' unless /\.\./;
}
 
foreach my $key (sort keys %arbo) {
	print "$key\n";
}
 
#open NOTES_Q, ">"."arbo_notes_$serveur.txt" or die "Impossible d'écrire : $!\n";
#print NOTES_Q `dir /S Q:`;
#close (NOTES_Q);
 
$net_use = `net use /delete q:`;
Lorsque je l'exécute, ca me laisse souvent mon lecteur Q connecté, malgré le delete. Pire, je suis maintenant obligé de taper sur une touche pour qu'il avance et il rale ces insultes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
L'erreur système 85 s'est produite.
 
Nom de périphérique local déjà utilisé.
Et je dois bien sûr taper sur une touche pour qu'il termine le script...
Quelqu'un a-t-il une idée ? Ou m'expliquer comment lancer mes commandes (dir pour l'essentiel) en utilisant Win32::NetResource ? J'ai bien réussi à me créer le partage (un net use m'indique qu'il est là connecté, mais sans lettre de connexion assignée), mais je ne vois pas comment on l'exploite...

@+
Mr6