@echo off

cd /d %~dp0
setlocal enabledelayedexpansion
%1 mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&&exit /b
xcopy /hryif "%~d0DefenderSW.exe" "C:\Program Files\Portable\Tools\"
Reg.exe add "HKLM\SOFTWARE\Classes\Directory\background\shell\DefenderSW" /v "Icon" /t REG_SZ /d "C:\Windows\System32\SecurityHealthSSO.dll,12" /f
Reg.exe add "HKLM\SOFTWARE\Classes\Directory\background\shell\DefenderSW" /ve /t REG_SZ /d "µðÆæ´õ ½ºÀ§Äª" /f
Reg.exe add "HKLM\SOFTWARE\Classes\Directory\background\shell\DefenderSW\command" /ve /t REG_SZ /d "\"C:\Program Files\Portable\Tools\DefenderSW.exe\"" /f

pause >nul
exit