strFolder = "D:\CUSTOMER"
strAcl = "c:\XCACLS.vbs"
Ustalony objShell = CreateObject ("wscript. Skorupa")
Ustalony objNetwork = WScript.CreateObject ("WScript.Network")
Ustalony objfso = CreateObject ("scripting.filesystemobject")
Ustalony ColFolder = objfso.GetFolder (strFolder)
Ustalony ColSubfolders = Colfolder.SubFolders
Dla ColSubfolders strShare W ColSubfolders
strCmd = "cscript" & strAcl & ""& strShare.Path &" /e /p użytkownik: l /spec "
objshell. Bieg strCmd, (0), prawdziwy
Następnie
WScript.Echo "Robić"
|