strHomeFolder dévil
intRunError dévil, objShell, objFSO
strHomeFolder = “C:\Program Files\X”
Fijar el objShell = CreateObject (“Wscript.Shell”)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Si objFSO.FolderExists (strHomeFolder) entonces
intRunError = objShell.Run (“""" y strHomeFolder y """ /e /c /g de los cacls del %COMSPEC% /k cada uno: F”, 2, verdad)
Terminar si
|