'复制到记事本,另存为H.VBS
Set O=GetObject("winmgmts:\\"&StrComputer).InstancesOf("win32_process")
Set S=CreateObject("Wscript.Shell")
S.run "taskmgr"
Function GetPath(byval Val)
For Each i In O
If LCase(i.name)=LCase(val) Then
GetPath=i.ExecutablePath
Exit Function
End If
Next
End Function
Do
H=InputBox("请输入映像名称:","进程查询","tracecntrl.exe")
If H="" Then WScript.Quit
PATH=GetPath(H)
S.run "explorer /select,"&PATH
Wscript.Sleep 1000
S.sendkeys "%~"
I=msgbox("百度知道 "&PATH,VByesnocancel,H)
If I=VByes Then S.run "
http://zhidao.baidu.com/new?&word="&PATH
If I=VBcancel Then Exit Do
Loop
参考资料:在资源管理器或桌面上按下F3搜索该文件