modifier acl de certains fichiers

Version imprimable

15/06/2007, 12h09
nicovbs

modifier acl de certains fichiers

salut,

je voudrais par script modifier les acl de certains dossiers sur quelques pc.
mais je ne connais pas à l'avance les noms de dossiers concernés.

je pensais faire :pour tout dossier excepté c:\windows, c:\docs & settings, ... cacls /mes options.

je ne pense pas que DOS me permette cela, vbs sans doute mais je ne suis pa suffisament calé.

help, please ?

merci
15/06/2007, 12h32
ced600

Qu'est ce qu'un acl ?
ici tu as plein d'exemple de script vb pour travailler avec les fichiers et les répertoires.
Tu peux aussi regarder la :faq: .
15/06/2007, 13h42
nicovbs

j'ai déjà consulté la :faq:
ce sont les Listes de Controle d'Accès des dossiers/fichiers (les droits utilisateurs)

en fait je voudrais parcourir un fichier texte, dès que je tombe sur windows (par exemple) hop j'efface cette ligne.
ensuite je relie mon nouveau fichier et j'applique les nouvelles acl aux dossiers lister dans le fichier texte.

Alors cela je l'ai obtenu à partir du site que je t'ai passé en liens :) et cela sert à modifier les attributs d'un repertoire :

Code:

1
2
3
4
5
6
7
8
9
 Changing Folder Attributes
 
Demonstration script that uses the FileSystemObject to check if a folder is hidden and, if it is not, hides it. Script must be run on the local computer. Script must be run on the local computer. 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2 
End If

Pour lire un fichier :

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
Lecture ligne à ligne d'un fichier texte :
 
 
VBS 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  while Not f.AtEndOfStream 
     wscript.echo f.ReadLine
  Wend
  f.Close
 
 
Lecture de la totalité d'un fichier texte :
 
 
VBS 
Const ForReading = 1, ForWriting = 2 
  Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  Wscript.echo f.ReadAll
  f.Close

Extrait de la :faq:

Pour ecrire dans un fichier (donc aussi effacer une ligne) :

Code:

1
2
3
4
5
6
7
VBS 
   Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
   f.write("Salut")

Aussi extrait de la FAQ :D

Et après une rapide recherche sur :google: j'ai trouvé ce lien qui liste les fonctions VBS (et qui explique comment les utiliser) et donc liste aussi les fonctions pour travailler sur les chaines de charactères.

Au fait, as tu vraiment consulté la FAQ ? :mouarf:

19/06/2007, 14h35
abertaud
Citation:
Envoyé par ced600

Pour ecrire dans un fichier (donc aussi effacer une ligne) :

Code:

1 2 3 4 5 6 7 VBS Const ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true) f.write("Salut")

Aussi extrait de la FAQ :D
Attention, l'ouverture d'un fichier en mode "ForWriting" va écraser la totalité de son contenu...
19/06/2007, 14h41
ced600

C vrais, mais si je ne me trompe pas avec l'option "true", on détruit le fichier et on le recree, non ? Donc que l'on soit en ForWriting n'est pas génant tant que l'on met "true".
Mais il vrais que j'ai mis un commentaire avant le code sans bien regarde le contenu de celui-ci :)
19/06/2007, 15h29
abertaud

Tu as tout à fait raison pour l'option true.

Par contre, quand tu dis que le code permet "donc aussi effacer une ligne", il ne le permet pas vraiment, puisqu'il l'imposse. Il l'impose d'ailleurs pour toutes les lignes du fichier.

D'où mon post pour éviter la confusion qui pourrait être faite en le lisant ;)

Le seul moyen de remplacer une ligne par une autre dans un fichier texte est en fait de le recopier intégralement, à l'exception de ladite ligne à modifier. Un exemple est d'ailleurs probablement présent dans la FAQ
19/06/2007, 15h39
ced600

Citation:

Par contre, quand tu dis que le code permet "donc aussi effacer une ligne", il ne le permet pas vraiment, puisqu'il l'imposse. Il l'impose d'ailleurs pour toutes les lignes du fichier.

C'est juste, et ton post m'a permis de voir mon erreur, c'est pour cela que j'ai aussi écrit dans mon dernier post :

Citation:

Mais il vrais que j'ai mis un commentaire avant le code sans bien regarde le contenu de celui-ci :)

Pour reconnaître mon erreur (ou me justifier lol)

Mais je suis déçu que ce soit toi qui réponds et non "nicovbs". J'ai l'impression dès fois que certains (très minoritaire) prennent pour des chiens les généreuses et attentionées personnes qui postent des réponses sur ce forum (je ne cherche pas à me flater du tout :D )
19/06/2007, 15h58
abertaud

Effectivement. D'où ma signature :bug:

Bonne continuation