Функция SetPermissions ()
Тусклое strHomeFolder, strHome, strUser
Тусклое intRunError, objShell, objFSO
strHomeFolder = «C:\Test»
Установите objShell = CreateObject («Wscript.Shell»)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Если objFSO.FolderExists (strHomeFolder) после этого
intRunError = objShell.Run («отголосок y %COMSPEC% /c| _ cacls»
& strHomeFolder & «/e /c /g каждое: F», 2, поистине)
Если intRunError <> 0 после этого
_ Потребителя Wscript.Echo «ошибка задавая позволения для»
& strUser & «самонавести скоросшиватель» & strHomeFolder
Закончитесь если
Закончитесь если
Закончите функцию
|