Discussion :

[vince2005]

bonjour,

J'arrive pas à connecter un lecteur reseau en perl.

Voici mon script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
use Win32::NetResource;
 
#AddConnection(\%NETRESOURCE,$Password,$UserName,$Connection) 
 
AddConnection(\\MACHINE\TOTO\DONNEES,password,user,T:\)

[Arioch]

2 remarques :

Si c'est un extrait de ton code et qu'il y a d'autres lignes après la dernière montrée, il manque un ; à ta dernière ligne. Question camouflée derrière cette remarque : ton code compile-t-il ?

Sinon, que donne un eval sur AddConnection(\\MACHINE\TOTO\DONNEES,password,user,T:\) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
eval {
    AddConnection(\\MACHINE\TOTO\DONNEES,password,user,T:\);
};
warn "Erreur : $@\n" if ($@);

Pour tes variables password et user, ne serait-ce pas plutôt $password et $user ?

De plus, je pense que des " " seraient de bon aloi

AddConnection("\\MACHINE\TOTO\DONNEES",$password,$user,"T:\");

[MarneusCalgarXP]

D'après la doc du module , le 1° paramètre est une référence sur une hash contenant les valeurs suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddConnection (\%netresource, password, username, connection)

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
36
37
 
%NETRESOURCE
 
            KEY                    VALUE
 
            'Scope'         =>  Scope of an Enumeration
                                RESOURCE_CONNECTED,
                                RESOURCE_GLOBALNET,
                                RESOURCE_REMEMBERED.
 
            'Type'          =>  The type of resource to Enum
                                RESOURCETYPE_ANY    All resources
                                RESOURCETYPE_DISK    Disk resources
                                RESOURCETYPE_PRINT    Print resources
 
            'DisplayType'   =>  The way the resource should be displayed.
                                RESOURCEDISPLAYTYPE_DOMAIN    
                                The object should be displayed as a domain.
                                RESOURCEDISPLAYTYPE_GENERIC    
                                The method used to display the object does not matter.
                                RESOURCEDISPLAYTYPE_SERVER    
                                The object should be displayed as a server.
                                RESOURCEDISPLAYTYPE_SHARE    
                                The object should be displayed as a sharepoint.
 
            'Usage'         =>  Specifies the Resources usage:
                                RESOURCEUSAGE_CONNECTABLE
                                RESOURCEUSAGE_CONTAINER.
 
            'LocalName'     =>  Name of the local device the resource is 
                                connected to.
 
            'RemoteName'    =>  The network name of the resource.
 
            'Comment'       =>  A string comment.
 
            'Provider'      =>  Name of the provider of the resource.

et le dernier paramètre n'est pas non plus une chaine, c'est un flag booleen...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
The connection flag indicates whether the connection should be remembered for the user for all logins.

[vince2005]

j'ai lu la doc du module, mais vu mon niveau, c'est pas tres parlant !!!

auriez vous un exemple concret ..

merci

[MarneusCalgarXP]

Pour moi, ca veut dire qu'il faut faire qqch dans ce genre là (attention, les valeurs que je mets à titre d'exemple sont fausses, ce sera à toi de les renseigner correctement)

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
 
use Win32::NetResource;
 
my $netresource = {
  'Scope'         =>  RESOURCE_CONNECTED ,
  'Type'          =>  RESOURCETYPE_DISK ,
  'DisplayType'   =>  RESOURCEDISPLAYTYPE_SHARE ,
  'Usage'         =>  RESOURCEUSAGE_CONNECTABLE ,
  'LocalName'     =>  'T:' ,
  'RemoteName'    =>  '//machine/chemin' ,
  'Comment'       =>  'trop cool ca marche' ,
  'Provider'      =>  'je suis un fournisseur'
};
 
AddConnection ($netresource, $password, $username, 0);

[vince2005]

j'ai le message d'erreur suivant

Undefined subroutine &main::AddConnection called at C:\essai1.pl line 26

qui correspond à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AddConnection ($netresource, $password, $username, 0);