Apps Execute, agregar programas a ejecutar

Este programa es el mismo que el anterior solo que este esta hecho en Batch puramente y este agrega rutas al registro en vez de agregar accesos directos a la carpeta de Windows.

Disfrutenlo ;)

@echo off
color 0B
title Apps Execute
mode con cols=65 lines=15
:menu
set "file="
set "name="
set "temp0="
set "temp1="
set "opc="
cls
echo.Arrastre aqui su archivo [exe]
set /p file=">> "
call:com %file%
call:error1 %file%
echo.Nombre que usara para ejecutar su programa
set /p name=">> "
REG ADD "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%name%.exe" /ve /d %file% /f >nul
echo.
echo.Programa %name% agregado !!!
msg * Para verificar: Escriba [%name:~0,-4%] o [%name%] en [Ejecutar]
ping -n 4 localhost >nul
echo.Desea agregar otro programa [Y/N]
set /p opc=">> "
if /i ["%opc%"] == ["Y"] (goto:menu) else (msg * Gracias por usar Apps Execute&exit)
:com
set temp0=%1
if not [^%temp0:~0,1%] == [^"] (set file="%file%"&goto:eof) else (goto:eof)
:error1
set temp1=%1
if /i not ["%temp1:~-5,4%"] == [".exe"] (echo. Error23: Archivo invalido&pause>nul&goto:menu)
goto:eof