中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 转一个实用的vbs

ebfok
初级用户

积分 87
发帖 33
注册 2006-6-20
来自 cs
状态离线

『楼主』: 转一个实用的vbs

'==========================================================================
'
' NAME: ShowLnkTarget.vbs
'
' COMMENT: 快速显示“快捷方式”中“目标”所在的位置，并把焦点停留在目标上。
'========================================================================

'Windows Registry Editor Version 5.00
'
'[HKEY_CLASSES_ROOT\WScript.Shell]
'@="Windows Script Host Shell Object"
'
'[HKEY_CLASSES_ROOT\WScript.Shell\CLSID]
'@="{72C24DD5-D70A-438B-8A42-98424B88AFB8}"
'
'[HKEY_CLASSES_ROOT\WScript.Shell\CurVer]
'@="WScript.Shell.1"
'
'
'
'在“开始→ 运行”里输入“regsvr32 WSHom.Ocx”（不包括双引号）
'==========================================================================
' 安装说明：
'             1. 放在任意目录中，直接双击脚本，即可完成安装。
'             2. 安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
'             3. 如果移动了脚本的位置，请再安装一次。
'             4. 脚本名字可以改变。改好之后，请再安装一次。
'==========================================================================
'卸载：下列代码保存为REG
'REGEDIT4
'
'[-HKEY_CLASSES_ROOT\lnkfile\shell\ShowLnkTarget]
'
'
'==========================================================================

Option Explicit

Dim objArgs, WshShell
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")

If objArgs.Count = 1 Then
   ShowLnkTarget
ElseIf objArgs.Count = 0 Then
   Setup
End If

'==========================================================================

Sub    Setup
   Dim QM
   QM = """"
WshShell.RegWrite "HKCR\lnkfile\shell\ShowLnkTarget\", "显示目标位置"
WshShell.RegWrite "HKCR\lnkfile\shell\ShowLnkTarget\command\", _
QM & WScript.FullName & QM & " " & _
QM & WScript.ScriptFullName & QM & " " & _
QM & "%1" & QM
MsgBox "安装完毕！",64,WScript.ScriptName
End Sub

'---------------------------------------------------------------------------

Sub    ShowLnkTarget
   Dim lnkname, strComputer, objWMIService, colFiles, objFile
   lnkname = Replace(objArgs(0),"\","\\")

   strComputer = "."
   Set objWMIService = GetObject _
         ("winmgmts:\\" & strComputer & "\root\cimv2")
   Set colFiles = objWMIService.ExecQuery _
         ("Select * From Win32_ShortcutFile WHERE Name = " & "'" & lnkname & "'")

   For Each objFile in colFiles
         WshShell.Run ("explorer /n, /select,"    & objFile.Target)
   Next
End Sub

'==========================================================================

2007-12-24 22:46

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: