Questione : Scritto di VB all'eredità enble sui dispositivi di piegatura e sulle lime

Ciao gli esperti, il
Im che osserva lo scritto all'eredità enble sui dispositivi di piegatura e sul files

Here è lo scritto che è stato scritto da Chris-Ammaccatura, tuttavia, gli impianti dello scritto appena sulle lime, in modo da sarebbe facile per un esperto in VBscript da cambiarlo per comprendere il href= " http://www.experts-exchange.com/Security/Operating_Systems_Security/Windows/Q_21953774.html#discussion " di folders.

rity/Operating_Systems_Security/Windows/Q_21953774.html#discussion del e.com/Secu di http://www.experts-exchang class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 " del class= " del id= " codeSnippet686563 del
class= > " libero " del
soluzioni >Related class= title= " bandierina del href= " /Security/Operating_Systems_Security/Windows/Q_21953774.html " di Change NTFS " del class= " delle lime " su files

Risposta : Scritto di VB all'eredità enble sui dispositivi di piegatura e sulle lime


Prova di Hmm… questo?

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:

Opzione esplicita

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

'
'Sottoprogrammi
'

ResetInheritance secondario (strPath, intWhatToDoWithInheritance)
      objFileSecSetting fioco, objSecurityDescriptor, objMethod, objInParam
      intControlFlagsVar fioco

      objFileSecSetting stabilito = objService.Get (“&_ del """ di Win32_LogicalFileSecuritySetting.Path=
            Sostituire (strPath, “\„, “\ \ ") & il """")
      objSecurityDescriptor di objFileSecSetting.GetSecurityDescriptor      

      Selezionare il intWhatToDoWithInheritance di caso
      Mettere 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      
      Estremità prescelta
      
      objSecurityDescriptor.ControlFlags = intControlFlagsVar
            
      Regolare il objMethod = objFileSecSetting.Methods_ (“SetSecurityDescriptor„)
      Regolare il objInParam = objMethod.inParameters.SpawnInstance_ ()
      objInParam.Properties_.item (“descrittore„) = objSecurityDescriptor
      
      objFileSecSetting.ExecMethod_ “SetSecurityDescriptor„, objInParam
Sommergibile dell'estremità

DoWorkOnFolders secondario (strPath)
      objWorkingFolder fioco, objWorkingFile, objWorkingSubFolder

      'Ripristinare l'eredità livellata del dispositivo di piegatura
      strPath di ResetInheritance, ENABLE_INHERITANCE

      Regolare il objWorkingFolder = objFileSystem.GetFolder (strPath)

      WScript.Echo “che funzionano su„ & strPath
      
      Per ciascuno objWorkingFile in objWorkingFolder.Files
            ResetInheritance objWorkingFile.Path, ENABLE_INHERITANCE
      Dopo

      Per ogni objWorkingSubFolder in objWorkingFolder.SubFolders
            DoWorkOnFolders objWorkingSubFolder.Path
      Dopo
Sommergibile dell'estremità

'
'Codice principale
'

objFileSystem fioco, objLocator, objService, objRootFolder, objFile, objFolder

Regolare il objFileSystem = CreateObject (“Scripting.FileSystemObject„)
Regolare il objLocator = CreateObject (“WbemScripting.SWbemLocator„)
Regolare il objService = objLocator.ConnectServer (". „, “radice/cimv2„)

Regolare il objRootFolder = objFileSystem.GetFolder (FS_TREE_ROOT)

Per ciascuno objFile in objRootFolder.Files
      ResetInheritance objFile.Path, ENABLE_INHERITANCE
Dopo      

objFile stabilito = niente

Per ogni objFolder in objRootFolder.SubFolders
      DoWorkOnFolders objFolder.Path
Dopo

Regolare il objFolder = niente

Regolare il objRootFolder = niente
Regolare il objService = niente
Regolare il objLocator = niente
Regolare il objFileSystem = niente
Altre soluzioni  
 
programming4us programming4us