Schemerige strHomeFolder
Schemerige intRunError, objShell, objFSO
strHomeFolder = „C:\Program Files\X“
Reeks objShell = CreateObject („Wscript.Shell“)
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Als objFSO.FolderExists (strHomeFolder) Dan
intRunError = objShell.Run („%COMSPEC% /k cacls """ & strHomeFolder & """ /e /c /g iedereen: F“, 2, Waar)
Eind als
|