Dunkel strHomeFolder
Dunkel intRunError, objShell, objFSO
strHomeFolder = ”C:\Program Files\X”,
Fastställd objShell = CreateObject (”Wscript.Shell”)
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Om objFSO.FolderExists (strHomeFolder) därefter
intRunError = objShell.Run (”%COMSPEC% /k cacls""" & strHomeFolder & """ /e /c /g alla: F”, 2, riktigt)
Avsluta om
|