Meilleur auteur de réponses
Lister les droits des repertoires partagées

Question
-
Bonjour,
Je suis loin d'être le premier a m'interroger a ce sujet, et a vous solliciter, j'en ai conscience. Mais les réponses trouvées me paraissent assez peu satisfaisante...
Je suis face a une problèmatique tres simple, j'aimerai lister les partages, et les droits sur la securité des dossiers du serveur chez certains clients.
Tout simplement, les responsables se sont succédés dans l'entreprise, demandant des restrictions d'accés a des groupes, des users, de crée des dossiers cachés dans des sous repertoires ...
C'est rapidement devennu un cafarnaum, et la seul solution que je connais, c'est de lister les repertoires, et de verifier leurs droits un par un ...
efficace, certes, mais quand les dossiers se compte par milliers, c'est pas tres glamour ...
Comme plusieurs techniciens se sont succédés aupres des differentes entreprises, je tordrai le coup a certains qui repondrai "vous aviez qu'a les lister au fur et a mesure" ... car meme si ca avait été le cas, on ne serait pas a l'abri d'un "loupé" chose que je ne voudrai pas me permettre par rapport aux clients.
je sais que cette question a été posé maintes et maintes fois ! Mais bon on sais jamais :)
j'ai trouvé cela :
Hyena :http://www.systemtools.com/hyena/ --> ne fonctionne pas sur srv 2008
Access Enum : http://technet.microsoft.com/en-us/sysinternals/bb897332.aspx ( je ne connais pas)
apres jouer avec calc.exe, mais pas tres "lisible"
merci de votre aide
cdt
mardi 22 novembre 2011 14:21
Réponses
-
Bonjour,
J'avais fait un script vbs qui faisait ce type de recherche mais n'arrive pas à mettre la main dessus.
Pour vous aider, il existe une librairie vbs faite par microsoft qui se nomme xcacls.vbs (trouvable sur le net). Il y a une aide intégrée à la librairie. Voici un exemple de code qui peut vous aider :
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShell.Environment("Process")
Set objFSO = CreateObject("Scripting.FileSystemObject")const sRep = "x:\dossiers"
Const sScr = "wscript //B xcacls.vbs
Const sPar = "options de xcacls dont je ne me souviensplus"Set objFolder = objFSO.GetFolder(sRep)
set objsubfolders = objfolder.subfolders
For Each folder In objsubfolderscommandeaexecuter = sScr & """" & srep & folder.name & """" & sPar
traitement, mettre le résultat de la commande xcacls.vbs dans un fichier texte
Next
Bon courage.
- Modifié Romain49 jeudi 24 novembre 2011 11:40
- Proposé comme réponse Roxana PANAITMicrosoft employee vendredi 25 novembre 2011 08:42
- Marqué comme réponse Florin Ciuca mardi 29 novembre 2011 12:00
jeudi 24 novembre 2011 11:38 -
Bonjour,
voici un script qui permet de récupérer tous les droits sur un partage donné, en indiquant le nombre de niveaux de dossiers à analyser :
http://base.faqexchange.info/Documents%20partages/Scripting/VbScript/showperms.vbs.TXT
Le fichier résultant peut être chargé dans Excel, et là cela devient presque magique en utilisant le filtrage automatique.
On peut sélectionner un niveau, un compte de droit, un propriétaire, et savoir quels sont TOUS les fichiers possédés par un utilisateur, partout ou un compte est utilisé, etc...
A bientôt,
Thierry DEMAN. Exchange MVP. https://www.mcpvirtualbusinesscard.com/VBCServer/MVPtdeman/profile (68 MCPs) http://base.faqexchange.info- Proposé comme réponse Thierry DEMAN-BARCELÒMVP mardi 29 novembre 2011 12:51
- Marqué comme réponse Florin Ciuca mardi 29 novembre 2011 12:53
mardi 29 novembre 2011 12:51
Toutes les réponses
-
Bonjour,
J'avais fait un script vbs qui faisait ce type de recherche mais n'arrive pas à mettre la main dessus.
Pour vous aider, il existe une librairie vbs faite par microsoft qui se nomme xcacls.vbs (trouvable sur le net). Il y a une aide intégrée à la librairie. Voici un exemple de code qui peut vous aider :
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShell.Environment("Process")
Set objFSO = CreateObject("Scripting.FileSystemObject")const sRep = "x:\dossiers"
Const sScr = "wscript //B xcacls.vbs
Const sPar = "options de xcacls dont je ne me souviensplus"Set objFolder = objFSO.GetFolder(sRep)
set objsubfolders = objfolder.subfolders
For Each folder In objsubfolderscommandeaexecuter = sScr & """" & srep & folder.name & """" & sPar
traitement, mettre le résultat de la commande xcacls.vbs dans un fichier texte
Next
Bon courage.
- Modifié Romain49 jeudi 24 novembre 2011 11:40
- Proposé comme réponse Roxana PANAITMicrosoft employee vendredi 25 novembre 2011 08:42
- Marqué comme réponse Florin Ciuca mardi 29 novembre 2011 12:00
jeudi 24 novembre 2011 11:38 -
Bonjour,
Merci de nous tenir au courant si vous essayez le script proposé par Romain.
Cordialement,
Roxana
Roxana PANAIT, MSFT
Votez! Appel à la contribution
Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.vendredi 25 novembre 2011 08:43 -
Bonjour,
Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?
Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !
Cordialement,
Florin
Florin CIUCA, MSFT
Votez! Appel à la contribution
Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.mardi 29 novembre 2011 12:00 -
Bonjour,
voici un script qui permet de récupérer tous les droits sur un partage donné, en indiquant le nombre de niveaux de dossiers à analyser :
http://base.faqexchange.info/Documents%20partages/Scripting/VbScript/showperms.vbs.TXT
Le fichier résultant peut être chargé dans Excel, et là cela devient presque magique en utilisant le filtrage automatique.
On peut sélectionner un niveau, un compte de droit, un propriétaire, et savoir quels sont TOUS les fichiers possédés par un utilisateur, partout ou un compte est utilisé, etc...
A bientôt,
Thierry DEMAN. Exchange MVP. https://www.mcpvirtualbusinesscard.com/VBCServer/MVPtdeman/profile (68 MCPs) http://base.faqexchange.info- Proposé comme réponse Thierry DEMAN-BARCELÒMVP mardi 29 novembre 2011 12:51
- Marqué comme réponse Florin Ciuca mardi 29 novembre 2011 12:53
mardi 29 novembre 2011 12:51