Ciemnawy strHomeFolder
Ciemnawy intRunError, objShell, objFSO
strHomeFolder = "C:\Program Files\X"
Ustalony objShell = CreateObject ("Wscript.Shell")
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Jeżeli objFSO.FolderExists (strHomeFolder) Wtedy
intRunError = objShell.Run ("%COMSPEC% /k cacls """ & strHomeFolder & """ /e /c /g %COMSPEC%: F", 2, Prawdziwy)
Kończyć Jeżeli
|