strHomeFolder não ofuscante
intRunError não ofuscante, objShell, objFSO
strHomeFolder = “C:\Program Files\X”
Ajustar o objShell = o CreateObject (“Wscript.Shell”)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Se objFSO.FolderExists (strHomeFolder) então
intRunError = objShell.Run (de “""" dos cacls %COMSPEC% /k & strHomeFolder & """ /e /c /g todos: F”, 2, verdadeiro)
Terminar se
|