Тусклое strHomeFolder
Тусклое intRunError, objShell, objFSO
strHomeFolder = «C:\Program Files\X»
Установите objShell = CreateObject («Wscript.Shell»)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Если objFSO.FolderExists (strHomeFolder) после этого
intRunError = objShell.Run («""" cacls %COMSPEC% /k & strHomeFolder & """ /e /c /g каждое: F», 2, поистине)
Закончитесь если
|