Fonction SetPermissions ()
Faible strHomeFolder, strHome, strUser
Faible intRunError, objShell, objFSO
strHomeFolder = « C:\Test »
Placer l'objShell = le CreateObject (« Wscript.Shell »)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Si objFSO.FolderExists (strHomeFolder) puis
intRunError = objShell.Run (« écho Y de %COMSPEC% /c| _ de cacls »
et strHomeFolder et « /e /c /g chacun : F », 2, vrais)
S'intRunError <> 0 puis
_ Pour utilisateur de Wscript.Echo « erreur assignant des permissions »
et strUser et « pour autoguider la chemise » et le strHomeFolder
Finir si
Finir si
Finir la fonction
|
