"Mascaret" wrote:

> Jacques Perrocheau a écrit le 16/07/2008 14:14:
>
> > Bonjour Ã*** tous,
> >
> > J'ai une question, je ne suis pas un spécialiste de Windows. ;-)
>
> La demande originale de Jacques est postée depuis MT-NewsWatcher/3.5.2
> (PPC Mac OS X).
>
> > Est-ce qu'il est possible de faire un script VBS pour rechercher et
> > lister sur un volume tous les fichiers et dossiers d'un SID donné (le
> > "truc" en S-1-5-21-1454471165-1004336348-1606980848-xxxx), si oui cela
> > a-t-il été déjÃ*** fait ?
> >
> > Le but recherché est de "nettoyer" les ACL d'une installation "curieuse"
> > qui a laissé des fichiers ayant comme possesseur un utilisateur qui
> > n'existe plus sur la machine. Une partie ayant été fait "Ã*** la main" le
> > but en fait de rechercher les "fichiers oubliés".
> >
> > Je n'ai pas trouvé lÃ***
> > <http://www.microsoft.com/technet/scriptcenter/default.mspx>, un peu
> > touffu pour moi, ni dans la cassette du sieur JC Bellamy
> > <http://www.bellamyjc.org/fr/vbsdownload.html>
> >
> > D'avance merci.
> >
> > P.S. suivi en fr.comp.os.ms-windows plus facile d'accès pour moi.
>
> Certes, mais si tu veux avoir une vraie et bonne réponse, le groupe
> idéal est "microsoft.public.fr.scripting", où je cruciposte et où je
> positionne le suivi. Abonne toi Ã*** ce groupe le temps d'avoir une réponse
> qui te convienne, de vrais cadors y sévissent et te trouveront la
> meilleure solution Ã*** ton problème.

Bonjour,

Le script VBScript DisplayDACL.vbs ci-dessous permet d'afficher le SID du
propriétaire d'un fichier ainsi que les SIDs des ACEs présents dans sa DACL.

Exemple en ligne de commandes :
dir D:\Test /b /s | CScript DisplayDACL.vbs | find "xxxx"

--- Coupez ici : DisplayDACL.vbs ---
Option Explicit

' déclaration des variables
Dim sFile, sUsername
Dim oFile, oAce, oSD

On Error Resume Next

' lecture du nom du fichier ou du dossier
Do Until WScript.StdIn.AtEndOfStream

' lecture du chemin complet du fichier
sFile=WScript.StdIn.ReadLine()

' bind sur le fichier ou dossier
Set oFile=GetObject("winmgmts:Win32_LogicalFileSecurit ySetting." & _
"Path='" & sFile & "'")

' traitement des erreurs
If Err.Number=0 Then

' lecture du Security Descriptor du fichier ou du dossier
oFile.GetSecurityDescriptor oSD

' affichage du SID du propriétaire
WScript.Echo sFile & ":" & oSD.Owner.SIDString

' parcours des ACEs et affichage des SID
For Each oAce In oSD.DACL
WScript.Echo sFile & ":" & oAce.Trustee.SIDString
Next

End If

' réinitialisation
Err.Clear

Loop
--- Coupez ici : DisplayDACL.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr

"Mascaret" wrote:

> Bonjour Gilles,
> Quand je parlais de cadors :-)
> Merci Gilles ... ET bravo, comme toujours !

Je prends le temps de consulter le forum avant de prendre l'apéro avec mon
amie.
Merci beaucoup "Mascaret" pour cette appréciation ;-)
CelÃ*** me touche beaucoup ...

Une version plus évoluée de ce script sera bientôt disponible sur mon site.

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr