显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk

分享人:岌岌可危来源:互联网15

显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk

viewplaincopy toclipboardprint?
  1. '==========================================================================
  2. '
  3. 'NAME:ShowLnkTarget.vbs
  4. '
  5. 'COMMENT:快速显示“快捷方式”中“目标”所在的位置，并把焦点停留在目标上。
  6. '========================================================================
  8. '在“开始→运行”里输入“regsvr32WSHom.Ocx”（不包括双引号）
  9. '==========================================================================
  10. '安装说明：
  11. '1.放在任意目录中，直接双击脚本，即可完成安装。
  12. '2.安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
  13. '3.如果移动了脚本的位置，请再安装一次。
  14. '4.脚本名字可以改变。改好之后，请再安装一次。
  15. '==========================================================================
  16. '卸载：下列代码保存为REG
  17. 'REGEDIT4
  18. '
  19. '[-HKEY_CLASSES_ROOTlnkfileshellShowLnkTarget]
  20. '
  21. '
  22. '==========================================================================
  24. OptionExplicit
  26. DimobjArgs,WshShell
  27. SetobjArgs=WScript.Arguments
  28. SetWshShell=WScript.CreateObject("WScript.Shell")
  30. IfobjArgs.Count=1Then
  31. ShowLnkTarget
  32. ElseIfobjArgs.Count=0Then
  33. Setup
  34. EndIf
  37. '==========================================================================
  39. SubSetup
  40. DimQM
  41. QM=""""
  42. WshShell.RegWrite"HKCRlnkfileshellShowLnkTarget","显示目标位置"
  43. WshShell.RegWrite"HKCRlnkfileshellShowLnkTargetcommand",_
  44. QM&WScript.FullName&QM&""&_
  45. QM&WScript.ScriptFullName&QM&""&_
  46. QM&"%1"&QM
  47. MsgBox"安装完毕！",64,WScript.ScriptName
  48. EndSub
  50. '---------------------------------------------------------------------------
  52. SubShowLnkTarget
  53. Dimlnkname,strComputer,objWMIService,colFiles,objFile
  54. lnkname=Replace(objArgs(0),"","\")
  56. strComputer="."
  57. SetobjWMIService=GetObject_
  58. ("winmgmts:\"&strComputer&"rootcimv2")
  59. SetcolFiles=objWMIService.ExecQuery_
  60. ("Select*FromWin32_ShortcutFileWHEREName="&"'"&lnkname&"'")
  62. ForEachobjFileincolFiles
  63. WshShell.Run("explorer/n,/select,"&objFile.Target)
  64. Next
  65. EndSub

from:http://www.yongfa365.com/Item/ShowLnkTarget.vbs.html

  
virus.lnk.vbsworm.b target.lnk 

爱华网本文地址 » http://www.aihuau.com/a/25101017/357165.html

更多阅读

快捷方式扩展名 如何显示后缀名

快捷方式扩展名——简介快捷方式扩展名为.lnk，顾名思义，lnk文件是用于指向其他文件的一种文件，双击打开这个快捷方式文件就会打开那个定义的文件，这给调用程序带来很多方便之处。又因为这个快捷方式的文件本身很小，所以被广泛应用于操作

桌面快捷方式不见了 桌面上快捷方式不见了

桌面快捷方式不见了——简介有时候我们的桌面快捷方式会忽然不见了，这可能是误删、系统中毒、没有勾选”显示桌面图标“、Shell值没有设置”explorer.exe“等造成的，可根据以下步骤一一排查，看是什么原因造成的，并进行更正。桌面快捷方

教你win7宽带连接怎么创建快捷方式 创建快捷方式

教你win7宽带连接怎么创建快捷方式——简介安装上了win7 操作系统，一系列问题来了，比如说建立win7系统的宽带连接，以及在桌面上建立宽带连接的快捷方式等等!目前就发现这些问题。经过一翻摸索，终于知道了怎么来设置win7宽带连接，以及建立

如何解决电脑快捷方式图标显示异常 桌面快捷方式图标异常

如何解决电脑快捷方式图标显示异常——简介 在使用电脑过程中，我们有时候会遇到某些软件快捷方式图标变成未知文件图标，显示不正常的情况。这种情况在XP和Win7下都可能出现，排除软件被卸载导致快捷方式图标失效，这个问题往往是图标缓存

怎样让快捷方式显示小箭头 去快捷方式小箭头

很多时候，我们重新完系统都会发现桌面快捷方式的小箭头不见了，当然有些人觉得没有小箭头是比较好的，但是有些人就需要到小箭头快捷方式了，那出现这种没有小箭头的情况要怎样解决呢，下面我们一起看看是怎样解决的吧！怎样让快捷方式显示

声明:《显示快捷方式目标ShowLnkTarget.vbs bat创建快捷方式lnk》为网友岌岌可危分享！如侵犯到您的合法权益请联系我们删除