strFolder = „D:\CUSTOMER“
strAcl = „c:\XCACLS.vbs“
Reeks objShell = CreateObject („wscript. Shell“)
Reeks objNetwork = WScript.CreateObject („WScript.Network“)
Vastgestelde objfso = CreateObject („scripting.filesystemobject“)
Vastgestelde ColFolder = objfso.GetFolder (strFolder)
Vastgestelde ColSubfolders = Colfolder.SubFolders
Voor Elke strShare in ColSubfolders
strCmd = „cscript“ & strAcl & „„& strShare.Path &“ /e /p gebruikers: l /spec "
objshell. Looppas strCmd, ware 0,
Daarna
WScript.Echo „Gedaan“
|