Net use trop crado

Version imprimable

Net use trop crado

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:

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:

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

26/06/2006, 14h26
Mr6

Personne ne peut m'aider ?:traine:
26/06/2006, 15h11
Jedai

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

--
Jedaï

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:

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);
}

11/12/2006, 21h07
kiki91

Pourquoi pas utiliser les rep UNC

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...