Question : Manuscrit de VB à la transmission enble sur des chemises et des dossiers

Salut les experts, le
Im regardant le manuscrit à la transmission enble sur les chemises et le files

Here est le manuscrit qui a été écrit par Chris-Bosselure, cependant, les travaux de manuscrit juste sur des dossiers, ainsi il serait facile pour un expert en matière de VBscript de le changer pour inclure le href= " http://www.experts-exchange.com/Security/Operating_Systems_Security/Windows/Q_21953774.html#discussion " de folders.

le rity/Operating_Systems_Security/Windows/Q_21953774.html#discussion du e.com/Secu de http://www.experts-exchang class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
>Option " de l'id= " codeSnippet686563 de
class= > " clair " de
solutions >Related class= title= " du href= " /Security/Operating_Systems_Security/Windows/Q_21953774.html de Change NTFS de class= sur files

Réponse : Manuscrit de VB à la transmission enble sur des chemises et des dossiers


Essai de Hmm… ceci ?

Chris
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 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :

Option explicite

Const FS_TREE_ROOT = « C:\Temp »

Const SE_DACL_PRESENT = 4
Const SE_DACL_AUTO_INHERITED = 1024
Const SE_DACL_PROTECTED = 4096
Const SE_SELF_RELATIVE = 32768

Const ENABLE_INHERITANCE = 1
Const COPY_AND_TURN_OFF_INHERITANCE = 2
Const REMOVE_AND_TURN_OFF_INHERITANCE = 3

'
'Sous-routines
'

ResetInheritance secondaire (strPath, intWhatToDoWithInheritance)
      Faible objFileSecSetting, objSecurityDescriptor, objMethod, objInParam
      Faible intControlFlagsVar

      objFileSecSetting réglé = objService.Get (« &_ de """ de Win32_LogicalFileSecuritySetting.Path=
            Remplacer (strPath, « \ », « \ \ ") et le """")
      objSecurityDescriptor d'objFileSecSetting.GetSecurityDescriptor      

      Choisir l'intWhatToDoWithInheritance de cas
      Enfermer ENABLE_INHERITANCE
            intControlFlagsVar = SE_DACL_PRESENT + SE_DACL_AUTO_INHERITED + SE_SELF_RELATIVE
      Cas COPY_AND_TURN_OFF_INHERITANCE, REMOVE_AND_TURN_OFF_INHERITANCE
            intControlFlagsVar = SE_DACL_PRESENT + SE_DACL_PROTECTED + SE_SELF_RELATIVE      
      Extrémité choisie
      
      objSecurityDescriptor.ControlFlags = intControlFlagsVar
            
      Placer l'objMethod = l'objFileSecSetting.Methods_ (« SetSecurityDescriptor »)
      Placer l'objInParam = l'objMethod.inParameters.SpawnInstance_ ()
      objInParam.Properties_.item (« descripteur ») = objSecurityDescriptor
      
      objFileSecSetting.ExecMethod_ « SetSecurityDescriptor », objInParam
Sous-marin d'extrémité

DoWorkOnFolders secondaire (strPath)
      Faible objWorkingFolder, objWorkingFile, objWorkingSubFolder

      'Remettre à zéro la transmission de niveau de chemise
      strPath de ResetInheritance, ENABLE_INHERITANCE

      Placer l'objWorkingFolder = l'objFileSystem.GetFolder (le strPath)

      WScript.Echo « fonctionnant sur » et strPath
      
      Pour chacun objWorkingFile dans objWorkingFolder.Files
            ResetInheritance objWorkingFile.Path, ENABLE_INHERITANCE
      Après

      Pour chaque objWorkingSubFolder dans objWorkingFolder.SubFolders
            DoWorkOnFolders objWorkingSubFolder.Path
      Après
Sous-marin d'extrémité

'
'Code principal
'

Faible objFileSystem, objLocator, objService, objRootFolder, objFile, objFolder

Placer l'objFileSystem = le CreateObject (« Scripting.FileSystemObject »)
Placer l'objLocator = le CreateObject (« WbemScripting.SWbemLocator »)
Placer l'objService = l'objLocator.ConnectServer (".  », « racine/cimv2 »)

Placer l'objRootFolder = l'objFileSystem.GetFolder (FS_TREE_ROOT)

Pour chacun objFile dans objRootFolder.Files
      ResetInheritance objFile.Path, ENABLE_INHERITANCE
Après      

objFile réglé = rien

Pour chaque objFolder dans objRootFolder.SubFolders
      DoWorkOnFolders objFolder.Path
Après

Placer l'objFolder = rien

Placer l'objRootFolder = rien
Placer l'objService = rien
Placer l'objLocator = rien
Placer l'objFileSystem = rien
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us