cfwyy77_bat

快捷方式的路径自己看情况改一改。供参考。

@echo off
%1 %2
mshta vbscript:createobject("shell.application").shellexecute("""%~0""","goto :code",,"runas",1)(window.close)&&exit /b

:code
echo Set objShell = WScript.CreateObject^("WScript.Shell"^) >%temp%\temp.vbs
echo Set lnk = objShell.CreateShortcut("C:\users\public\desktop\火狐.lnk") >>%temp%\temp.vbs
echo lnk.Arguments = """www.baidu.com""" >>%temp%\temp.vbs
echo lnk.Save >>%temp%\temp.vbs

cscript "%temp%\temp.vbs" 
del /f /q "%temp%\temp.vbs" 
复制代码

cfwyy77_bat

回复 4# 708841460
你把这一整段 加到你自己的BAT里了？这样是可能有问题的。因为一开始mshta会调用自身（%~0）来以管理员权限运行，我这么做是怕有些路径没有管理员权限，保存快捷方式会失败的。
你可以先尝试把前面这一段

%1 %2
mshta vbscript:createobject("shell.application").shellexecute("""%~0""","goto :code",,"runas",1)(window.close)&&exit /b
:code
复制代码

拿掉，试试看。

cfwyy77_bat

回复 6# 708841460
加到  :code后面