strHomeFolder fioco
intRunError fioco, objShell, objFSO
strHomeFolder = “C:\Program Files\X„
Regolare il objShell = CreateObject (“Wscript.Shell„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Se objFSO.FolderExists (strHomeFolder) allora
intRunError = objShell.Run (“""" dei cacls di %COMSPEC% /k & strHomeFolder & """ /e /c /g tutto: F„, 2, allineare)
Concluder se
|