Discussion :

[nicovbs]

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

[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 .

[nicovbs]

j'ai déjà consulté la
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.

[ced600]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et après une rapide recherche sur 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 ?

[abertaud]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Attention, l'ouverture d'un fichier en mode "ForWriting" va écraser la totalité de son contenu...

[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