' Change permissions in the XCACLS.vbs command
' Change Path to directory
' Create Logs folder
' Change Domain Name



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='c:\script_dev'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
For Each objFolder in colSubfolders

varDIR = objFolder.Name

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(varDIR)

'
' Run XCACLS.vbs and add permissions to each folder
'

set objShell = CreateObject("Wscript.Shell")

varUser = objFolder.ShortName
 
objShell.Run "C:\WINDOWS\System32\cscript.exe XCACLS.vbs " & varUser & " /G DOMAIN\" & varUSER & ":F /I ENABLE /DEBUG /L LOGS\" & varUser & "CAT.log", 2, True	

Next