Set ObjArg = WScript.Arguments
Dim strArg
If WScript.Arguments.Count > 0 Then
   Dim strInfo
   Set objApp = CreateObject("Shell.Application") 
   For Each strArg in objArg
      objApp.shellExecute "cmd.exe", " /c ECHO Y| cacls " & chr(34) & strArg & chr(34) & " /T /G %username%:F", , "runas", 1
   Next 

   Set objNet = Nothing
   Set objApp = Nothing
End If