@echo off
setlocal

:: 设置快捷方式的名称和目标路径
set ShortcutName=MyShortcut.lnk
set TargetPath=C:\Path\To\Your\Program.exe
set IconPath=C:\Path\To\Your\Icon.ico
set WorkingDir=C:\Path\To\Your\WorkingDirectory

:: 设置桌面路径
set DesktopPath=%USERPROFILE%\Desktop

:: 创建临时的 VBScript 文件
set VBSFile=%temp%\CreateShortcut.vbs
(
  echo Set WshShell = WScript.CreateObject("WScript.Shell"^)
  echo Set oShellLink = WshShell.CreateShortcut("%DesktopPath%\%ShortcutName%"^)
  echo oShellLink.TargetPath = "%TargetPath%"
  echo oShellLink.WorkingDirectory = "%WorkingDir%"
  echo oShellLink.IconLocation = "%IconPath%"
  echo oShellLink.Save
) > "%VBSFile%"

:: 运行 VBScript 文件
cscript //nologo "%VBSFile%"

:: 删除临时的 VBScript 文件
del "%VBSFile%"

echo 快捷方式已创建在桌面上：%DesktopPath%\%ShortcutName%
pause