strFolder = ”D:\CUSTOMER”,
strAcl = ”c:\XCACLS.vbs”,
Fastställd objShell = CreateObject (”wscript. Shell”)
Fastställd objNetwork = WScript.CreateObject (”WScript.Network”)
Fastställd objfso = CreateObject (”scripting.filesystemobject”)
Fastställda ColFolder = objfso.GetFolder (strFolder)
Fastställda ColSubfolders = Colfolder.SubFolders
För varje strShare i ColSubfolders
strCmd = ”cscript” & strAcl & ””& strShare.Path- &” /e /p användare: l /spec ",
objshell. Kör strCmd, 0 som är riktig
Därefter
”Gjorda” WScript.Echo,
|