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

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

爱华网本文地址 » http://www.413yy.cn/a/25101017/357165.html