This PC Shortcut Creator

ThisPC-CreateShortcut.bat

@echo off
cls
title Create shortcut in This PC
if exist %1 goto setParameterToVariable
echo Drop your file/folder you want to create a shortcut for here (or enter the file/folder path).
set/p filePath=">"
goto setShortcutName
:setParameterToVariable
set filePath=%1
:setShortcutName
set filePath=%filePath:"=%
set/p name="Name for your shortcut: "
echo.
echo Creating shortcut...
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%appdata%/Microsoft/Windows/Network Shortcuts/%name%.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%filePath%" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs >nul
del CreateShortcut.vbs
echo Shortcut Created!
pause >nul
exit