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 : Sélectionner tout - Visualiser dans une fenêtre à part
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:
L'erreur système 67 s'est produite.

Nom de réseau introuvable.
Auriez-vous une idée du problème ?