用Bat文件创建桌面快捷方式_bat创建快捷方式

情况说明：

比如说把当前目录下的
xxxx.exe 作为路径
xxxx.ico 作为图标
我的意思就是，把BAT,EXE,ICO，三个文件放一个目录，在任意位置。
都能生成桌面图标

批处理代码：

以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI
/*&cls&echo off
rem 为一个指定exe程序文件创建桌面快捷方式
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
set "exefile=D:\xxx\test.exe"
if not exist "%exefile%" (echo;"%exefile%" 未找到&pause&exit)
cscript -nologo -e:jscript "%~f0" "%exefile%"
echo;%#% +%$%%$%/%@% %z%
pause
exit
*/
var ws=new ActiveXObject('WScript.Shell');
var fso=new ActiveXObject('Scripting.FileSystemObject');
var exefile=fso.GetFile(WSH.Arguments(0));
var lnkfile=ws.SpecialFolders('Desktop')+'\\'+fso.GetBaseName(exefile.Name)+'.lnk';
var lnk=ws.CreateShortcut(lnkfile);
lnk.TargetPath=exefile.Path;
lnk.WorkingDirectory=exefile.ParentFolder.Path;
lnk.Save();