Hi I use this to run cacls
<%
dim Folder
Folder = "C:\Inetpub\
& session("HomeDir"
run("cacls """ & Folder & """ /E /G """ & session("HomeDir"

& """:F /C /T"

run("cacls """ & Folder & """ /E /R Everyone /C /T"

Response.Redirect "../frame.asp"
function Run (command)
dim oShell, oFileSystem, strTempFile, strCommand
set oFileSystem = CreateObject("Scripting.FileSystemObject"

if (Err.Number) then
Run = "Error creating object Scripting.FileSystemObject - " & Err.Number & " - " & Err.Description
exit function
end if
strTempFile = oFileSystem.GetSpecialFolder(2) & "\" & oFileSystem.GetTempName()
set oShell = CreateObject("WScript.Shell"

if (Err.Number) then
Run = "Error creating object WScript.Shell - " & Err.Number & " - " & Err.Description
exit function
end if
strCommand = "CMD /C """ & command & " 1> " & strTempFile & " 2>&1"""
call oShell.Run(strCommand, 1, true)
if (oFileSystem.FileExists(strTempFile)) then
dim oFile
set oFile = oFileSystem.GetFile(strTempFile)
if (oFile.Size) then
dim oText
set oText = oFileSystem.OpenTextFile(strTempFile, 1, false)
Run = oText.ReadAll
oText.Close
set oText = nothing
else
Run = "Failed to redirect command output."
end if
set oFile = nothing
else
Run = "Failed to redirect command output."
end if
set oFileSystem = nothing
set oShell = nothing
end function
%>
It's in its own folder and run as an administrator(Change IIS)
Might help
Cheers