@echo off
cls
set /p dir=Indica el directorio del archivo (ejemplo: C:\Windows\System32)
set /p sof=indica el nombre del programa y extexion (ejemplo: cmd.exe)
set /p name=Indica el nombre del acesso directo ejemplo: cmd)
cls
ECHO Set objShell = WScript.CreateObject("WScript.Shell") >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO ficheroAccesoDirecto = "%USERPROFILE%\Desktop\%name%.lnk" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO Set objAccesoDirecto = objShell.CreateShortcut(ficheroAccesoDirecto) >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.TargetPath = "%dir%\%sof%" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.Arguments = "" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.Description = "%name%" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.HotKey = "ALT+CTRL+N" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.IconLocation = "%dir%\%sof%, 2" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.WindowStyle = "1" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.WorkingDirectory = "%dir%" >>%USERPROFILE%\Desktop\accsdirecto.vbs
ECHO objAccesoDirecto.Save >>%USERPROFILE%\Desktop\accsdirecto.vbs
ATTRIB +h +s "%USERPROFILE%\Desktop\accsdirecto.vbs"
cls
START /B /WAIT %USERPROFILE%\Desktop\accsdirecto.vbs
CLS
erase /Q /a h s "%USERPROFILE%\Desktop\accsdirecto.vbs"
cls
msg * Acesso directo Creado en el Escritorio
cls
exit