[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 【已解决】求大神指点批处理创建桌面快捷方式

本帖最后由 708841460 于 2019-1-10 08:46 编辑

给D:\某文件夹\XX.exe创建桌面快捷方式。系统:win7 X64

批处理创建快捷方式
http://bbs.bathome.net/thread-11050-1-1.html

BAT调用mshta、VBS、PowerShell创建lnk快捷方式
http://bbs.bathome.net/thread-35005-1-1.html
http://bbs.bathome.net/thread-33196-1-1.html

批处理调用shortcut命令批量修改lnk快捷方式
http://bbs.bathome.net/thread-15756-1-1.html
1

评分人数

    • 708841460: 感谢给帖子标题标注[已解决]字样技术 + 1
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 ivor 于 2019-1-6 19:58 编辑


  1. MKLINK Link Target
复制代码
2

评分人数

    • 708841460: 感谢给帖子标题标注[已解决]字样技术 + 1
    • aries215: 这个秒杀url技术 + 1

TOP

我来给楼上大佬做个实例注释

本帖最后由 yhcfsr 于 2019-1-6 22:24 编辑

回复 3# ivor : 怎么每个帖子都要加个SVG链接,害得我也忍不住.
  1. MKLINK "%userprofile%\desktop\XX.exe" "D:\某文件夹\XX.exe"
复制代码
QQ 33892006

TOP

回复 4# yhcfsr


C:\Users\ASUS>MKLINK /d "%userprofile%\desktop\XX.lnk" "D:\123.exe"
你没有足够的权限执行此操作。
大神,能在指点一下吗?显示没权限

TOP

回复 5# 708841460


“以管理员身份运行”打开一个CMD窗口再执行命令试试
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# 708841460

首先,管理员身份运行命令行.
其次,/D参数是针对目录的,单文件不要用这个参数.
1

评分人数

QQ 33892006

TOP

本帖最后由 708841460 于 2019-1-7 10:11 编辑

回复 7# yhcfsr


    谢谢大神,成功了。但是远程运行的时候只能直接运行,能不能让文件自己获取管理员权限呢?

TOP

  1. @echo off
  2. ::管理员权限
  3. %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
  4. cd /d "%~dp0"
  5. ...........其他语句..............
复制代码
1

评分人数

QQ 33892006

TOP

回复 9# yhcfsr


    已解决,非常感谢

TOP

这个代码效果更好一点,虽然我看不懂
  1. set SrcFile=e:\123.exe
  2. set LnkFile=%userprofile%\desktop\123
  3. call :CreateShort "%SrcFile%" "%LnkFile%"
  4. goto :eof
  5. :CreateShort
  6. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码

TOP

返回列表