Schwaches strHomeFolder
Schwaches intRunError, objShell, objFSO
strHomeFolder = „C:\Program Files\X“
objShell = CreateObject („Wscript.Shell“) einstellen
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
Wenn objFSO.FolderExists (strHomeFolder) dann
intRunError = objShell.Run („%COMSPEC% /k cacls """ u. strHomeFolder u. """ /e /c /g jeder: F“, 2, zutreffendes)
Beenden wenn
|