strFolder = “D:\CUSTOMER”
strAcl = “c:\XCACLS.vbs”
Ajustar o objShell = o CreateObject (“wscript. Shell”)
Ajustar o objNetwork = o WScript.CreateObject (“WScript.Network”)
Ajustar o objfso = o CreateObject (“scripting.filesystemobject”)
Ajustar ColFolder = objfso.GetFolder (o strFolder)
Ajustar ColSubfolders = Colfolder.SubFolders
Para cada strShare em ColSubfolders
strCmd = “cscript” & strAcl & ““& usuários de strShare.Path & de” /e /p: l /spec "
objshell. Funcionar o strCmd, 0, verdadeiro
Em seguida
WScript.Echo “feitos”
|