Função SetPermissions ()
strHomeFolder não ofuscante, strHome, strUser
intRunError não ofuscante, objShell, objFSO
strHomeFolder = “C:\Test”
Ajustar o objShell = o CreateObject (“Wscript.Shell”)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Se objFSO.FolderExists (strHomeFolder) então
intRunError = objShell.Run (de “eco Y %COMSPEC% /c| _ dos cacls”
& strHomeFolder & “/e /c /g todos: F”, 2, verdadeiros)
Se intRunError <> 0 então
_ Do usuário de Wscript.Echo “erro que atribui permissões para”
& strUser & “para dirigir o dobrador” & o strHomeFolder
Terminar se
Terminar se
Terminar a função
|