Faible strHomeFolder
Faible intRunError, objShell, objFSO
strHomeFolder = « C:\Program Files\X »
Placer l'objShell = le CreateObject (« Wscript.Shell »)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Si objFSO.FolderExists (strHomeFolder) puis
intRunError = objShell.Run (« """ et strHomeFolder et """ /e /c /g de cacls de %COMSPEC% /k chacun : F », 2, vrai)
Finir si
|