Discussion :

[heid]

Bonjour , je dois copier des fichier d'un pc a un autre et je ne peux utiliser que les ressources réseau :
\\serveur\partage.

Mon programme fonctionne très bien sauf que les 2 pc ayant un mot de passe administrateur différent pour que la copie fonctionne il faut que sous l'explorateur j'accède a la ressource manuellement et qu'il me demande le mot de passe (pour que le mot de passe soit connu de ma machine) et je devrais effectuer cette opération a chaque redémarrage de mon serveur
Comment faire pour renseigner automatiquement le mot de passe , comment ce système de droit windows fonctionne t'il sachant que les autorisation semble être sur le pc qui essaye de se connecter vu que en redémarrant le serveur qui a la ressource a laquelle on se connecte le client ne redemande pas le mot de passe.

Merci d'avance.

ps : je ne peux QUE utiliser les ressources partagées pas la peine de me dire de monter un volume
ps2 : le partage a un accès controle total a tous le monde
ps3 : je suis loggé en admin sur les 2 pc

[AlDel]

Le serveur est-il obligé de demander un mot de passe ?, sinon on peut le configurer pour qu'il n'en demande pas.

[heid]

je préfererais éviter mais dis toujours comment le configurer pour qu'il ne demande pas de mdp...

[scurbecq]

connecter un lecteur reseau correspondant au répertoire partagé

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
function T_DataModuleSAID._ConnecterLecteurReseau ( LecteurReseau:pchar;Nomserveur:pchar;RepertoirePartageServeur:pchar;
                                   codeUtilisateur:pchar;motpasseUtilisateur:pchar): boolean;
 
 
 
 
var lpNetRessource:TNetResource;
    Resultat:DWord;
 
    _tampon :string;
begin
 
 
 _DeConnecterLecteurReseau(LecteurReseau);
 with _saidini do
 begin
  lpNetRessource.dwType:=RESOURCETYPE_DISK; //RESOURCETYPE_PRINT pour une imprimante
  lpNetRessource.lpLocalName:=LecteurReseau; //exemple : 'J:'
  _tampon  := '\\'+ NomServeur + '\' + RepertoirePartageServeur ;
  lpNetRessource.lpRemoteName:= pchar(_tampon);//exemple: \\serveur1\ressource1
  lpNetRessource.lpProvider:=nil;
  Resultat:=WNetAddConnection2(lpNetRessource,MotPasseUtilisateur,codeUtilisateur,0);// connexion
 
 
  case resultat of
  NO_ERROR:   begin
        _ConnecterLecteurReseau  := true ;
 
        end;
  ERROR_ACCESS_DENIED	:   begin
        _ConnecterLecteurReseau  := true ;
         ShowMessage ('accès refusé');
        end;
  ERROR_ALREADY_ASSIGNED	:   begin
        _ConnecterLecteurReseau  := false ;
         ShowMessage ('lecteur réseau déjà attribué');
        end;
  ERROR_INVALID_PASSWORD	:   begin
        _ConnecterLecteurReseau  := false ;
         ShowMessage ('mot de passe incorrect');
        end;
  ERROR_BAD_NET_NAME :
    begin
     ShowMessage ('erreur de connexion à votre répertoire réseau (nom réseau)');
     _ConnecterLecteurReseau := false;
    end;
  else
    begin
      ShowMessage('erreur de connexion  réseau  non traitée');
      _ConnecterLecteurReseau := false ;
    end;
  end;
 end;
 
end;
 
procedure T_DataModuleSAID._DeConnecterLecteurReseau(LecteurReseau:pchar);
begin
 with _saidini do
  WNetCancelConnection2(LecteurReseau ,0,true); // déconnexion
end ;

[lolo_en_passant]

sinon tu peux utiliser l'API win32 WnetAddConnection2 qui te permet de spécifier login/mot de passe

tu as les paramètres sur MSDN
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wnet/wnet/wnetaddconnection2.asp

[edit]
j'arrive trop tard !! désolé du post inutile

[AlDel]

Merci Scurbecq pour le source

[heid]

merci scurbecq mais javaids précisé sans lecteur logique !!!!!!
je sais le faire avec et hélas ces lignes de commandes ne sont pas autorisées a l'execution dans un script cgi .
merci lolo_en_passant je vais creuser !!!

[heid]

En fait j'ai utilisé vos 2 réponses !


pour se connecter

Code :

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

1
2
 
resultat:=WNetAddConnection2lpNetRessource,'','',CONNECT_INTERACTIVE);

mais avec les proprieté

Code :

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

1
2
3
 
lpNetRessource.dwType:=RESOURCETYPE_ANY; //RESOURCETYPE_PRINT pour une imprimante
  lpNetRessource.lpLocalName:=''; //exemple : 'J:'

comme ca avec CONNECT_INTERACTIVE il met carrément la fenêtre de connexion de l'explorer c'est au dela de mes espérances
merci a vous deux en tout cas.