strFolder = «D:\CUSTOMER»
strAcl = «c:\XCACLS.vbs»
Установите objShell = CreateObject («wscript. Раковина»)
Установите objNetwork = WScript.CreateObject («WScript.Network»)
Установите objfso = CreateObject («scripting.filesystemobject»)
Установите ColFolder = objfso.GetFolder (strFolder)
Установите ColSubfolders = Colfolder.SubFolders
Для каждого strShare в ColSubfolders
strCmd = «cscript» & strAcl & ««& потребители strShare.Path &» /e /p: l /spec "
objshell. Побегите strCmd, 0, поистине
Затем
«Сделанные» WScript.Echo
|