Discussion :

[alexvdb]

Salut,

J'essaye depuis 2 heures de partager un répertoire en code en utilisant l'API NetShareAdd. Et depuis 2 heures, en essayant de modifier tous les paramètres, mon répertoire reste déspèrement inaccessible. Par contre, quand je le partage via l'explorateur de Windows, aucun problème (en même temps, ils maitrisent leur techno ...).

Si quelqu'un aurait un exemple qui fonctionne (ca va de soit) ...
Merci,
@+, Alex

[NABIL74]

Bonjour,

Salut,

J'essaye depuis 2 heures de partager un répertoire en code en utilisant l'API NetShareAdd. Et depuis 2 heures, en essayant de modifier tous les paramètres, mon répertoire reste déspèrement inaccessible. Par contre, quand je le partage via l'explorateur de Windows, aucun problème (en même temps, ils maitrisent leur techno ...).

Si quelqu'un aurait un exemple qui fonctionne (ca va de soit) ...
Merci,
@+, Alex

Je n'ai pas trop LAN, donc je ne peux pas tester ...

Teste-ça:

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
procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  function NetShareAdd(ServerName: PChar; Level: Integer; Buf: PChar; var parm_err: Integer): DWord; stdcall; external 'NETAPI32.DLL';
 
function NetShareSetInfo
(ServerName: PChar; NetName :PChar; Level: Integer;Buf: PChar; var parm_err: Integer):DWord; stdcall; external 'NETAPI32.DLL';
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I:      Integer;
  Buff:   PANSIChar;
  Dir:    string;
begin
  I := 0;
  Dir := 'C:\Documents and Settings\user\Desktop\Messenger';
  ForceDirectories(Dir);
  Buff := 'Messenger1';
  NetShareAdd('Emo', 502, Buff, I);
NetShareSetInfo('PC64','Messenger1', 1501, Buff, I);
end;

Ce code créé bien le répertoire 'Messenger' mais je ne sais pas s'il est accessible sous réseau!.

A+

NABIL74

[alexvdb]

Salut,

Merci pour le coup de main.
Je teste ca ce soir (si j'ai le temps ...) sinon demain.

@+, Alex

[alexvdb]

Salut,

Bon, j'ai résolu mon problème. Juste pour info, le code fourni par ... tiens ... par "chaisplusqui" ne fonctionne pas. En fait le partage de répertoire sous moteur NT se fait en 2 temps :

- le partage proprement dit (à l'aide de l'API NetShareAdd)
- l'attribution des droits (à l'aide des API de sécurité InitializeSecurityDescriptor & Cie) qui, il faut bien le reconnaitre est très complexe

Pour résoudre mon soucis, je suis donc bien passé par NetShareAdd puis par l'utilitaire cacls.exe livré avec XP qui est un outil en ligne de commande permettant la gestion des droits sur les fichiers/dossiers/partages/imprimante.

Voilà.
@+, Alex

[ILP]

Si cela intéresse quelqu'un, voici le code que j'utilise lors de la création de mes partages :

Code Pascal :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
  //////////////////////////////////////////////////////////////////////////////
  // Type pour l'API de partage
  TSHARE_INFO_2 = record
    shi2_netname      : PWideChar;
    shi2_type         : Integer;
    shi2_remark       : PWideChar;
    shi2_permissions  : Integer;
    shi2_max_uses     : Integer;
    shi2_current_uses : Integer;
    shi2_path         : PWideChar;
    shi2_passwd       : PWideChar;
  end;
  // Fonctions pour l'API de partage
  // Ajout d'un partage
  TNetShareAdd = function(
    servername  : PWideChar;
    level       : DWord;
    buf         : PChar;
    parm_err    : DWord
  ): DWord; stdcall;
  // Suppression d'un partage
  TNetShareDel = function(
    servername  : PWideChar;
    netname     : PWideChar;
    reserved    : DWord
  ): DWord; stdcall;
 
const
  STYPE_DISKTREE  = 0;
  STYPE_PRINTQ    = 1;
  STYPE_DEVICE    = 2;
  STYPE_IPC       = 3;
  STYPE_SPECIAL   = $80000000;
  STYPE_TEMPORARY = $40000000;
 
  ACCESS_NONE     = 0;
  ACCESS_READ     = 1;
  ACCESS_WRITE    = 2;
  ACCESS_CREATE   = 4;
  ACCESS_EXEC     = 8;
  ACCESS_DELETE   = 16;
  ACCESS_ATRIB    = 32;
  ACCESS_PERM     = 64;
  ACCESS_ALL      = (ACCESS_READ + ACCESS_WRITE + ACCESS_CREATE + ACCESS_EXEC
    + ACCESS_DELETE + ACCESS_ATRIB + ACCESS_PERM);
 
var
  NetShareAdd : TNetShareAdd;
  NetShareDel : TNetShareDel;
 
// Ajout d'un partage
function AjouterPartage(NomPartage, CheminPartage: WideString;
  Description: WideString = ''; Permissions: Integer = ACCESS_ALL;
  NbMaxUtil: Integer = -1; TypePartage: Integer = STYPE_DISKTREE;
  MotPasse: WideString = ''; Erreur: Boolean = True): Integer;
var
  ParamErr    : DWord;
  Share       : TSHARE_INFO_2;
  Reponse     : DWord;
  Hdlnetapi32 : THandle;
begin
  // Affiche un message d'erreur si Windows 98
  if IsWindows9x() then
  begin
    MessageDlg('Erreur de partage'#13#10
      + 'La fonction de partage ne fonctionne pas sous Windows 9x.'#13#10
      + 'Veuillez exécuter ce programme sous Windows 2000 ou supérieur pour'
      + ' pouvoir partager une ressource.', mtWarning, [mbOk], 0);
    Abort;
  end;
 
  // Charge la DLL
  Hdlnetapi32 := LoadLibrary('netapi32.dll');
 
  if Hdlnetapi32 <> 0 then
  begin
    @NetShareAdd := GetProcAddress(Hdlnetapi32, 'NetShareAdd');
 
    // Si erreur de chargement de la DLL
    if @NetShareAdd = nil then
    begin
      MessageDlg('Erreur de partage'#13#10
        + 'La fonction de partage n''a pas pu être chargée.'#13#10
        + 'Veuillez exécuter ce programme sous Windows 2000 ou supérieur pour'
        + ' pouvoir partager une ressource.', mtWarning, [mbOK], 0);
      Abort;
    end;
  end;
 
  // Test si les valeurs envoyées ne sont pas nulles
  if (NomPartage = '') or (CheminPartage = '') then
  begin
    if Erreur then
      MessageDlg('Erreur lors du partage'#13#10
        + 'Les paramètres de partage sont incorrecte.'#13#10
        + 'Veuillez spécifier un nom et un chemin de partage.', mtWarning, [mbOk], 0);
    Abort;
  end;
 
  FillChar(Share, SizeOf(Share), 0);
 
  with Share do
  begin
    // Nom du partage
    shi2_netname          := PWideChar(NomPartage);
    // Type de partage
    shi2_type             := TypePartage;
    // Description du partage
    shi2_remark           := PWideChar(Description);
    // Permission d'accès
    shi2_permissions      := Permissions;
    // Nombre maximum d'utilisateurs
    shi2_max_uses         := NbMaxUtil;
    // Nombre de connexions en cours à la ressource
    shi2_current_uses     := 0;
    // Chemin du partage
    shi2_path             := PWideChar(WideString(
      ExcludeTrailingPathDelimiter(CheminPartage)));
    // Mot de passe du partage
    if MotPasse <> '' then
      shi2_passwd         := PWideChar(MotPasse)
    else
      shi2_passwd         := nil;
  end;
 
  // Partage sur l'ordinateur local
  ParamErr := 0;
  Reponse := NetShareAdd(nil, 2, @Share, ParamErr);
 
  // Si une erreur c'est produite
  if (Reponse <> 0) and Erreur then
  begin
    MessageDlg('Erreur lors du partage'#13#10
      + 'Une erreur c''est produite lors de la création du partage d''un dossier.'#13#10
      + 'Erreur n°' + IntToStr(Reponse) + ' : ' + SysErrorMessage(Reponse) + #13#10
      + 'Dossier à partager : ' + QuotedStr(CheminPartage) + #13#10
      + 'Nom du partage : ' + QuotedStr(NomPartage), mtWarning, [mbOk], 0);
  end;
 
  Result := Reponse;
end;
 
// Suppression d'un partage
function SupprimerPartage(NomPartage: WideString;
  Erreur: Boolean = True): Integer;
var
  Reponse     : DWord;
  Hdlnetapi32 : THandle;
begin
  // Affiche un message d'erreur si Windows 98
  if IsWindows9x() then
  begin
    MessageDlg('Erreur de partage'#13#10
      + 'La fonction de partage ne fonctionne pas sous Windows 9x.'#13#10
      + 'Veuillez exécuter ce programme sous Windows 2000 ou supérieur pour'
      + ' pouvoir partager une ressource.', mtWarning, [mbOK], 0);
    Abort;
  end;
 
  // Charge la DLL
  Hdlnetapi32 := LoadLibrary('netapi32.dll');
 
  if Hdlnetapi32 <> 0 then
  begin
    @NetShareDel := GetProcAddress(Hdlnetapi32, 'NetShareDel');
 
    // Si erreur de chargement de la DLL
    if @NetShareDel = nil then
    begin
      MessageDlg('Erreur de partage'#13#10
        + 'La fonction de partage n''a pas pu être chargée.'#13#10
        + 'Veuillez exécuter ce programme sous Windows 2000 ou supérieur pour'
        + ' pouvoir partager une ressource.', mtWarning, [mbOK], 0);
      Abort;
    end;
  end;
 
  // Supprime le partage sur l'ordinateur local
  Reponse := NetShareDel(nil, PWideChar(NomPartage), 0);
 
  // Si une erreur c'est produite
  if (Reponse <> 0) and Erreur then
  begin
    MessageDlg('Erreur lors du partage'#13#10
      + 'Une erreur c''est produite lors de la suppression du partage d''un dossier.'#13#10
      + 'Erreur n°' + IntToStr(Reponse) + ' : ' + SysErrorMessage(Reponse) + #13#10
      + 'Nom du partage : ' + QuotedStr(NomPartage), mtError, [mbOK], 0);
  end;
 
  Result := Reponse;
end;
 
// Vérifie si l'OS est Windows 9x
function IsWindows9x(): Boolean;
begin
  Result := (Win32MajorVersion < 5);
end;

Pour la modification des droits sur le dossier partagé, j'utilise le script XCACLS.vbs de Microsoft.
http://support.microsoft.com/kb/825751/fr.
Le script, je peut l'utiliser comme ça :

Code Batch :

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

1
2
REM Applique les droits à "Tout le monde" sur le répertoire partagé
CSCRIPT XCACLS.vbs C:\MonRepertoire\ /G SID#S-1-1-0:F;F