VBScript Icacls

Dear,

I dont know what wrong with below script its not sccuessfully running

Option Explicit
Dim Obj, intRunError, strHomeFolder
Set Obj = wscript.createobject("wscript.shell") 

strHomeFolder = "C:\Program Files\Temp\"

'intRunError = Obj.run ("%COMSPEC% /c Echo Y| cacls " & strHomeFolder & " /c /g users:M ", 2, True)
Obj.Run "icacls strHomeFolder /grant:r users:(OI)M"

Support@Mytechnet.me