@echo off
SetLocal EnableExtensions EnableDelayedExpansion
set live=%USERPROFILE%
REG ADD "HKCR\AllFilesystemObjects\Shell" /f 2>nul || call :EnablePrivileges
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath" /ve /t REG_SZ /d "Ќ ©вЁ ў "џ¤ҐЄб"" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /f
REG ADD "HKCR\AllFilesystemObjects\Shell\CopyAsPath\command" /ve /d "wscript.exe //nologo \"%live%\KozaN.vbs\" \"%%1\"" /f
for /f "delims=[]" %%N in ('find /n ":UnpackVBS" ^<"%~f0"') do set /a num=%%N
more +%num% >"%live%\KozaN.vbs" <"%~f0"
del "%~dp0Elevating.vbs" 2>nul
echo "SafeZone.cc"
ping 127.0.0.1 -n 6 > nul
Exit
:EnablePrivileges
echo „«п гбв ®ўЄЁ ¤бва®©ЄЁ вॡговбп Ї®ўлиҐлҐ Їа ў .
echo „«п Їа®¤®«¦ҐЁп ¦¬ЁвҐ {ENTER}.
pause >nul
Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Elevating.vbs"
cscript.exe //nologo "%~dp0Elevating.vbs" "%~dpnx0"
Exit
:UnpackVBS
set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\UserChoice"
On Error Resume Next
if WScript.Arguments.Count = 0 then WScript.Quit
Arg = WScript.Arguments(0)
Arg = Mid(Arg, InStrRev(Arg, "\") + 1)
Arg = Replace(Arg, " ", "%20")
CreateObject("WScript.Shell").Run "explorer ""
http://yandex.ru/yandsearch?text=" & Arg & """"