Función SetPermissions ()
strHomeFolder dévil, strHome, strUser
intRunError dévil, objShell, objFSO
strHomeFolder = “C:\Test”
Fijar el objShell = CreateObject (“Wscript.Shell”)
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Si objFSO.FolderExists (strHomeFolder) entonces
intRunError = objShell.Run (“eco Y del %COMSPEC% /c| _ de los cacls”
y strHomeFolder y “/e /c /g cada uno: F”, 2, verdades)
Si intRunError <> 0 entonces
_ Del usuario de Wscript.Echo “error que asigna los permisos para”
y strUser y “dirigirse la carpeta” y el strHomeFolder
Terminar si
Terminar si
Terminar la función
|