如何用批处理实现鼠标右击发送到桌面快捷方式?

@echo off
md "硬盘文件夹路径"
xcopy "绿色软件所在文件夹名" "硬盘文件夹路径\" /e /c /h /r /k /-y
call:desktoplink "快捷方式名.lnk" "快捷方式目标"
pause
goto :eof

:desktoplink
(
(echo set WshShell=createObject^("WScript.Shell"^))
(echo strDesktop=WshShell.SpecialFolders^("Desktop"^))
(echo set oShellLink=WshShell.CreateShortcut^(strDesktop+"\\%~1"^))
(echo oShellLink.TargetPath="%~dpnx2")
(echo oShellLink.WorkingDirectory="%~dp2")
(echo oShellLink.Save)
)>"%temp%\%~1.vbs"
cscript "%temp%\%~1.vbs" //b
goto :eof

@echo off
echo [InternetShortcut] >>"%userprofile%\桌面\百度.url"
echo URL=http://www.baidu.com >>"%userprofile%\桌面\百度.url"
echo IconIndex=0 >&