Agregar accesos directos a C:\Windows

Tal vez sea un nombre no muy claro pero la correcta explicación de este pequeño programa es la siguiente:

Cuando abren cierto programa desde Ejecutar es porque la ruta del ejecutable esta asociada al sistema y si no se encuentra les dice que Windows no puede encontrar el archivo "nombre"... entonces el programa siguiente hace eso, agregar accesos directos de tus programas al sistema para que los abras desde Ejecutar.

@echo off
color 0B
title Shortcut Execute
mode con cols=60 lines=15
:menu
cls
echo.Arrastre aqui su archivo [exe]
set /p file=">> "
echo.Nombre del acceso directo
set /p name=">> "
if exist "%systemroot%\%name%.lnk" (goto:comp)
:create
echo set WshShell = WScript.CreateObject("WScript.Shell") >> "%temp%\add.vbs"
echo set LinkCreator = WshShell.CreateShortcut("%systemroot%\" ^& "\%name%.lnk") >> "%temp%\add.vbs"
echo LinkCreator.TargetPath = %file% >> "%temp%\add.vbs"
echo LinkCreator.WindowStyle = 1 >> "%temp%\add.vbs"
echo LinkCreator.Description = "%name%" >> "%temp%\add.vbs"
echo LinkCreator.Save >> "%temp%\add.vbs"
call "%temp%\add.vbs"
ping -n 2 localhost >nul
echo.
msg * Acceso directo [%name%] creado con exito
del "%temp%\add.vbs"
pause>nul&exit
:comp
echo.
echo.Ya existe un acceso directo con ese nombre !!!
echo.
echo.Desea reemplazarlo? [Y/N/X] X=salir
set /p mod=">> "
if /i ["%mod%"] == ["X"] (pause>nul&exit)
if /i ["%mod%"] == ["Y"] (goto:create) else (goto:menu)