partage de dossier

**nicocg** · 10/12/2007, 11h00

bonjour,

je suis a la recherche d'un script pour partager des dossiers.
j'ai une centaines de dossier dans un repertoire, chaque dossier a comme nom, le nom d'utilisateur du propiétaire. ce propriétaire est inscrit dans l'ad.
je cherche un script qui puisse me partager tous ces dossiers avec comme autorisation de partage l'autorisation pour le propriétaire du dossier.

par exemple si j'ai un dossier nommé "jdupont" je veux que le script me partage ce dossier avec pour autorisation du partage jdupont en lecture et ecriture.
et ca pour tous le repertoire contenant mes dossiers à partager.

je sais pas si c'est trop clair mais je seche!!

merci de votre aide

**RadPAT** · 10/12/2007, 12h57

Salut,

voici ce que je propose :

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
Set w=CreateObject("WScript.Shell")
 
Set ObjFso = CreateObject("Scripting.FileSystemObject")
 
pathl = Len(WScript.ScriptFullName) - Len(WScript.ScriptName)
Scriptpath = Mid(WScript.ScriptFullName, 1, pathl)
 
DirF = ScriptPath & "Dir.txt"
IF ObjFso.FileExists(DirF) Then
   ObjFso.DeleteFile(DirF)
End If
 
S=B("Choisissez un dossier")
 
If IsNull(S) Then 
   MsgBox "Sélection invalide"
Else
   go=w.run("cmd.exe /c dir """ & S & "\*."" /-B /AD > """ & DirF & """", 0, true)
 
   Set tso = ObjFso.OpenTextFile(DirF,1)
   while not tso.AtEndOfStream
         StrTemp = tso.readline
 
         VVal0 = InStrRev(StrTemp, "\")
         NomUsr = Mid(StrTemp, VVal0 + 1, Len(StrTemp) - VVal0)
 
         Commande = "Net Share " & Chr(34) & S & "\" & NomUsr & Chr(34) & "=" & StrTemp
         go=w.run(Commande)
         Commande = "Cacls " & Chr(34) & S & "\" & StrTemp &  Chr(34) &"  /t /c /g " & NomUsr & ":c"
         go=w.run(Commande)
   Wend
 
   tso.close
 
End If
 
IF ObjFso.FileExists(DirF) Then
   ObjFso.DeleteFile(DirF)
End If
 
 
Function B(Msg)
	On Error Resume Next
	Dim a,f,i,w
	Set a=WScript.CreateObject("Shell.Application")
 
	Set f=a.BrowseForFolder(&H0&,Msg,&h1&)
	B=f.ParentFolder.ParseName(f.Title).Path
 
	If Err.Number<>0 Then
		B=Null
		If f.Title="Desktop" Then B=w.SpecialFolders("Desktop")
		i=InStr(f.Title, ":")
		If i>0 Then B=Mid(f.Title,i-1,2) & "\"
	End If
End Function

On ne devrait pas être bien loin de ce que tu recherches...
Note pour CED600 : t'as vu les CMD, tu vas encore me dire que c'est de la bidouille......

...

A++

**nicocg** · 10/12/2007, 13h58

merci bcp pour ce script, je viens de tester at ca me parait une bonne piste (suf le partage qui ne fonctionne pas)
par contre, etant une bille en vbscript serait'il possible que vous detailliez les différentes etapes du script.

merci encore une fois ca va bien m'aider

**RadPAT** · 10/12/2007, 14h15

C'est pas très compliqué, tu récuperes la directory dans laquelle se trouvent tes partages. Un fichier .Txt est généré.
Tu lis ce fichier .TXT ligne à ligne et tu envoie le commande Dos "net share" pour partager (c'est ici que le problème intervient, j'ai testé avec un XP les autorisations par défaut sont tout le monde en controle total et mon collègue me dis que sur un 2003 les autorisations se comportent différemment). Donc c'est dans cette commande "net share" qui demande à être adaptée pour les permissions en 2003.
Après le "net share", tu envoies une seconde commande "Cacls" ou tu attribues les droits "c" (pour change) à ton utilisateur.
La fonction en fin de pgm sert à gérer ta fenetre de selection de répertoire qui est lancée au début du pgm.

A la reflexion, tu peux essayer de remplacer "net share...." par "Cmd /c Net Share...." et "Cacls..." par "Cmd /c Cacls....", ca a une chance de passer.

Voilà, bon courage.

A++

**nicocg** · 10/12/2007, 15h01

grand merci pour ces explications!!

avec toutes ces infos si j'arrive pas...

merci encore pour ces reponses rapides, claires, et bien expliquées!!
chapo

**ced600** · 10/12/2007, 15h08

Je suis sur que tu viens du monde linux

Un script shell, un aggragat de commande shell, une redirection de la sortie dans un fichier, et une regexp pour recherché le motif voulu dans le fichier texte, non ?

Enfin c'est tellement peu couteux en ressource, les commande en CMD sont efficaces, donc c'est viable.

Mais je ne suis pas sur que tu pourras le même genre de chose sous vista

"Vista : la chute de l'empire Microsoft"

Quand même pas, mais si MS ne sort pas son longhorn (je suppose qu'il changera de nom) Ils vont perdre des parts de marché sur les SE

Enfin de toute façon ils ont .Net qui a rendu tellement heureux les dev en VB6 convertis de fore en VB.net