Pergunta : Certificado de VB à herança enble em dobradores e em limas

Olá! os peritos,
Im que olha o certificado à herança enble nos dobradores e no files

Here são o certificado que foi escrito por Chris-Dente, entretanto, os trabalhos do certificado apenas em limas, assim que seria fácil para um perito em VBscript mudá-lo para incluir o href= " http://www.experts-exchange.com/Security/Operating_Systems_Security/Windows/Q_21953774.html#discussion " de folders.

o rity/Operating_Systems_Security/Windows/Q_21953774.html#discussion do e.com/Secu de http://www.experts-exchang class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 notpretty " do class= " do id= " codeSnippet686563 do
class= > " desobstruído " do
soluções >Related class= title= da " bandeira do href= " /Security/Operating_Systems_Security/Windows/Q_21953774.html " do Change NTFS " do class= " das limas " em files

Resposta : Certificado de VB à herança enble em dobradores e em limas


Tentativa de Hmm… isto?

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:

Opção explícita

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

'
'Sub-rotinas
'

ResetInheritance secundário (strPath, intWhatToDoWithInheritance)
      objFileSecSetting não ofuscante, objSecurityDescriptor, objMethod, objInParam
      intControlFlagsVar não ofuscante

      objFileSecSetting ajustado = objService.Get (de “&_ do """ Win32_LogicalFileSecuritySetting.Path=
            Substituir (strPath, “\”, “\ \ ") & o """")
      objSecurityDescriptor de objFileSecSetting.GetSecurityDescriptor      

      Selecionar o intWhatToDoWithInheritance do caso
      Encaixotar ENABLE_INHERITANCE
            intControlFlagsVar = SE_DACL_PRESENT + SE_DACL_AUTO_INHERITED + SE_SELF_RELATIVE
      Caso COPY_AND_TURN_OFF_INHERITANCE, REMOVE_AND_TURN_OFF_INHERITANCE
            intControlFlagsVar = SE_DACL_PRESENT + SE_DACL_PROTECTED + SE_SELF_RELATIVE      
      Extremidade seleta
      
      objSecurityDescriptor.ControlFlags = intControlFlagsVar
            
      Ajustar o objMethod = o objFileSecSetting.Methods_ (“SetSecurityDescriptor”)
      Ajustar o objInParam = o objMethod.inParameters.SpawnInstance_ ()
      objInParam.Properties_.item (“descritor”) = objSecurityDescriptor
      
      objFileSecSetting.ExecMethod_ “SetSecurityDescriptor”, objInParam
Submarino da extremidade

DoWorkOnFolders secundário (strPath)
      objWorkingFolder não ofuscante, objWorkingFile, objWorkingSubFolder

      'Restaurar a herança nivelada do dobrador
      strPath de ResetInheritance, ENABLE_INHERITANCE

      Ajustar o objWorkingFolder = o objFileSystem.GetFolder (o strPath)

      WScript.Echo “que trabalham em” & strPath
      
      Para cada um objWorkingFile em objWorkingFolder.Files
            ResetInheritance objWorkingFile.Path, ENABLE_INHERITANCE
      Em seguida

      Para cada objWorkingSubFolder em objWorkingFolder.SubFolders
            DoWorkOnFolders objWorkingSubFolder.Path
      Em seguida
Submarino da extremidade

'
'Código principal
'

objFileSystem não ofuscante, objLocator, objService, objRootFolder, objFile, objFolder

Ajustar o objFileSystem = o CreateObject (“Scripting.FileSystemObject”)
Ajustar o objLocator = o CreateObject (“WbemScripting.SWbemLocator”)
Ajustar o objService = o objLocator.ConnectServer (“. ”, “raiz/cimv2”)

Ajustar o objRootFolder = o objFileSystem.GetFolder (FS_TREE_ROOT)

Para cada um objFile em objRootFolder.Files
      ResetInheritance objFile.Path, ENABLE_INHERITANCE
Em seguida      

objFile ajustado = nada

Para cada objFolder em objRootFolder.SubFolders
      DoWorkOnFolders objFolder.Path
Em seguida

Ajustar o objFolder = nada

Ajustar o objRootFolder = nada
Ajustar o objService = nada
Ajustar o objLocator = nada
Ajustar o objFileSystem = nada
Outras soluções  
 
programming4us programming4us