Droits NTFS du propriétaire d'un fichier

Bonjour,

Soit un répertoire sur lequel un utilisateur possède uniquement des droits en lecture, écriture, et affichage du contenu du dossier.
Si cet utilisateur dépose un fichier dans ce répertoire, il en est le propriétaire et peut donc le modifier ensuite.

je souhaiterais qu'il ne puisse plus modifier le fichier qu'il vient de déposer. Est-ce possible ? (sachant que je ne veux pas faire tourner un moulinette qui change le propriétaire mais définir une option ad hoc au niveau du répertoire racine - et je ne veux pas non plus l'empêcher de déposer d'autres fichiers, dans les mêmes conditions)

merci d'avance pour vos réponses

Modif_NTFS.vbs

:salut:
J'ai fait une petite approche de ce que vous souhaitez faire en Vbscript et qui est inspiré un peu de mon dernier code : Comment créer un dossier et le protéger par mot de passe en vbscript
Dans ce script est basé essentiellement dans la commande cacls.exe :

Citation:

cacls.exe: Pour afficher ou modifier des listes de contrôle d'accès (ACL) pour les fichiers et dossiers.

Donc voila le code source de ce script enregistre-le sous par exemple Modif_NTFS.vbs
Code:

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 'Vbscript pour modifier des Droits NTFS d'un Dossier et de son contenu (sous-dossiers et Fichiers) '© Hackoo 25/03/2012 Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject") Dossier = "c:\Essai" If Not oFSO.FolderExists(Dossier) Then 'Crée le repertoire Set oFld=oFSO.CreateFolder(Dossier) end if If oFSO.FolderExists(Dossier) Then For each Fichier in oFSO.GetFolder(Dossier).Files 'MsgBox "Fichier :" & Fichier.path,64,"Nom des Fichiers" LectureSeule(Fichier) 'chaque fichier devient en lecture seule Next End if If oFSO.FolderExists(Dossier) Then For each Folder in oFSO.GetFolder(Dossier).SubFolders 'MsgBox "Dossier :" & Folder.Path,64,"Nom des Dossiers" LectureSeule(Dossier) 'chaque dossier devient en lecture seule Next End If ControlTotale(Dossier) ' Pour rendre un controle Totale du dossier parent Function LectureSeule(objet) Set Ws = CreateObject("WScript.Shell") Set ProcessEnv = Ws.Environment("Process") NomUtilisateur = ProcessEnv("USERNAME") Command = "%COMSPEC% /c Echo o| cacls "& objet &" /g " & qq(NomUtilisateur) & ":r administrateurs:r" Result = ws.Run(Command,0,True) 'exécution de la commande sans afficher la console MS-DOS End Function Function ControlTotale(objet) Set Ws = CreateObject("WScript.Shell") Set ProcessEnv = Ws.Environment("Process") NomUtilisateur = ProcessEnv("USERNAME") Command = "%COMSPEC% /c Echo o| cacls "& objet &" /g " & qq(NomUtilisateur) & ":f administrateurs:f" Result = ws.Run(Command,0,True) 'exécution de la commande sans afficher la console MS-DOS End Function Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function
Donc le seul inconvénient c'est qu'il faut mettre ce script en boucle infinie et qu'il s'exécute à chaque démarrage de windows. Ce que je n'ai pas codé pour le moment afin que vous puissiez le tester avant :mouarf:

Dans les droits NTFS, si jamais on met les droits "Ecriture" ok, mais pas "Modification", il ne pourra pas modifier...

On peut aussi affiner cela dans les paramètres avancés, et enlever le compte spécial "Créateur propriétaire" car sinon dès qu'il crée un fichier ça lui augmenterait les droits.

Or, si dès le départ il n'a pas le droit pour modifier les autorisations, il ne pourra pas s'augmenter les droits tout seul ;)