Accesso Alle Cartella Controllato Context

:: Aggiungere Permetti App in Accesso Controllato al Context Menu in Windows 10

@Echo Off
Cls & Color 1A

Cd %systemroot%\system32

net sess>nul 2>&1||(start mshta vbscript:code(close(Execute("CreateObject(""Shell.Application"").ShellExecute""%~0"",,,""RunAs"",1"^)^)^)&exit)

Cls & Mode CON  LINES=11 COLS=80 & Color 0D & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo.
Echo        Aggiungere Permetti App in Accesso Controllato al Context Menu (Y/N)?
Echo.
Echo.
Echo.


Set /p input= RESPONSE:

If /i  Not %input%==Y (Goto :_Ex) Else (Goto :_Start)

:_Ex
If /i Not %input%==N  (Goto :EOF) Else (Goto :_RegRestore)



:_Start

Reg.exe add "HKCR\exefile\Shell\AllowAppThroughCFA" /ve /t REG_SZ /d "Permetti App in Accesso Controllato" /f > Nul
Reg.exe delete "HKCR\exefile\Shell\AllowAppThroughCFA" /v "Extended" /f > Nul
Reg.exe add "HKCR\exefile\Shell\AllowAppThroughCFA" /v "HasLUAShield" /t REG_SZ /d "" /f > Nul
Reg.exe add "HKCR\exefile\Shell\AllowAppThroughCFA" /v "Icon" /t REG_SZ /d "%%ProgramFiles%%\Windows Defender\EppManifest.dll,-101" /f > Nul
Reg.exe add "HKCR\exefile\Shell\AllowAppThroughCFA\command" /ve /t REG_SZ /d "PowerShell -windowstyle hidden -Command \"Start-Process cmd -ArgumentList '/s,/c,start PowerShell.exe Add-MpPreference -ControlledFolderAccessAllowedApplications \"\"%%1\"\"'  -Verb RunAs\"" /f > Nul


Cls & Mode CON  LINES=11 COLS=80 & Color 0D & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo.
Echo           Sto aggiungendo Permetti App in Accesso Controllato al Context Menu
Echo.
Echo.
Echo.
Ping -n 6 localhost >Nul
Exit


:_RegRestore

Reg.exe delete "HKCR\exefile\Shell\AllowAppThroughCFA" /f > Nul



Cls & Mode CON  LINES=11 COLS=80 & Color 0D & Title Created By FreeBooter
Echo.
Echo.
Echo.
Echo.
Echo        Removing Allow App Through Controlled Folder Access Context Menu
Echo.
Echo.
Echo.
Ping -n 6 localhost >Nul
Exit