//代码演示
@echo off
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\快捷方式的的名字.lnk""):b.TargetPath=""%~dp0被创建快捷方式的文件的路径"":b.WorkingDirectory=""%~dp0"":b.Save:close")
ECHO.
ECHO 正在创建快捷方式...
ECHO 完成!
ECHO 你现在可以关闭此窗口了!
PAUSE>NUL
EXIT
//重点
mshta VBScript: ::使用mshta命令来执行VBS代码
%~dp0 ::批处理所在的盘符加路径