strFolder = “D:\CUSTOMER„
strAcl = “c:\XCACLS.vbs„
Regolare il objShell = CreateObject (“wscript. Shell„)
Regolare il objNetwork = WScript.CreateObject (“WScript.Network„)
Regolare il objfso = CreateObject (“scripting.filesystemobject„)
Regolare ColFolder = objfso.GetFolder (strFolder)
Regolare ColSubfolders = Colfolder.SubFolders
Per ogni strShare in ColSubfolders
strCmd = “cscript„ & strAcl & ““& utenti di /e„ & di strShare.Path /p: l /spec "
objshell. Fare funzionare lo strCmd, 0, allineare
Dopo
WScript.Echo “fatti„
|