Exécution de net use dans un script perl
Bonjour
Dans un script perl, j'utilise la commande "net use" pour connecter un partage samba en tant que lecteur réseau.
Voici un extrait de mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| #!C:\perl\bin\perl -w
use strict;
my $date=localtime;
my $fromdir="interface";
print "\n************ $date: DEBUT DU SCRIPT $0 ************\n\n";
my $cmd='net use * \\xx.xx.xx.xx\interface /user:user pwd';
system("$cmd"); |
Lorsque j'execute la commande "net use * \\xx.xx.xx.xx\interface /user:user pwd" depuis un fenetre dos, aucun probleme.
Lorsque j'execute la commande depuis un script .cmd, aucun probleme non plus.
Lorsque j'execute la commande depuis le script perl, j'ai le message d'erreur suivant:
Citation:
L'erreur système 67 s'est produite.
Nom de réseau introuvable.
Auriez-vous une idée du problème ?
