Discussion :

[Mr6]

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

[Mr6]

Personne ne peut m'aider ?

[Jedai]

Quel est le problème exactement ? Qu'est-ce que tu as écris comme code ? Les exemples de Win32::NetResource marche ?

--
Jedaï

[Mr6]

Les exemples de Win32::NetResource ne sont pas spécialement explicites pour en comprendre le fonctionnement, mais j'ai enfin fini par trouver un script qui m'a permis de faire ce que je voulais :

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
30
31
32
33
34
35
my $SHARE = {
     RemoteName =>  "\\\\$serveur.$domaine$path",
     LocalName  =>  undef};
 
if( not defined $SHARE->{LocalName} ) {
	$SHARE->{LocalName} = free_drive_letter();
	if( not AddConnection( $SHARE, $password, "$login\@$domaine", $connection)) {
		print "share connection error:\n", win32err();
	}
}
 
#print `dir $SHARE->{LocalName}`;
 
if( defined $SHARE->{LocalName} ) {
	if( not CancelConnection( $SHARE->{LocalName}, $connection, $force )) {
		print "disconnection error:\n", win32err();
	}
}
 
sub free_drive_letter {
     my $drive;
     for my $letter ('f' .. 'z' ) {
         my $mapped;
         $drive = "$letter:";
         GetUNCName( $mapped, $drive );
         return $drive if not $mapped;
     }
     print "All network drive letters (F: .. Z:) are in use\n";
}
 
sub win32err {
     my $err;
     Win32::NetResource::GetError($err);
     Win32::FormatMessage($err);
}

[kiki91]

Pourquoi pas utiliser les rep UNC ,

Si c'est juste pour pouvoir lire un rep un acces avec les commande UNC , fonction bien et tu n'est pas obligé de monter aucun repertoire et donc de le fermer.



$dir = chdir ("\\Host\rep");
=> une fois dans le rep , on peut faire un dir , cd etc...