添加当前目录下指定exe文件快捷方式到桌面的批处理文件？

Question

批处理文件和要创建快捷方式的EXE都是同一目录。。谢谢。求详细的bat或者vbs，运行这个批处理时需要不被360阻拦。
@echo off
echo 不一定要打中文,输入1为华北一区,2为华东一区,3为华中一区(华中二区和一区同一入口)
goto :create
:create
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%filename%.lnk""):b.TargetPath=""%CD%\data\x2.exe"":b.WorkingDirectory=""%CD%\data"":b.Arguments=""%ip%"":b.Save:close")

Answer 1

@echo off
for %%a in (*.exe) do mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%%~na.lnk""):b.TargetPath=(""%%~dpnxa""):b.WorkingDirectory=(""%%~dpa""):b.Save:close")
move "*.lnk" "%USERPROFILE%\桌面"

追问

360还是会拦截。。如图。。单纯实现把当前目录下某个EXE创建桌面快捷方式的批处理脚本我都找到几个，不过都是会拦截。。有一个VBS脚本不拦截，但是那个只能在当前目录创建快捷方式，我不知道怎么创建到桌面去。

追答

这也拦截啊~~
那你那个VBS脚本里头多写上一句移动文件到桌面不就行了。

追问

关键我不会写VBS脚本，怎么移动到桌面不知道如何写。我找下那个代码，把贴上来，你帮我完善一下看行不行。是个网游登录的创建当前目录下的快捷方式脚本,脚本我已经发到问题补充里了。