如何用VBS调用这些代码？

Question

set H="smss.exe csrss.exe winlogon.exe"
for /f %%I in ('wmic process get ExecutablePath^|findstr/i %H%') do (explorer /select,%%I)

Answer 1

'如果程序没有捕捉到路径,那么这个程序要么和系统不兼容,要么进程中没有这个进程.
on error resume next
dim prow,spl_pros,pros,i,wsc
set wsc=createobject("wscript.shell")
set prow=getobject("winmgmts:\\").instancesOf("win32_process")
public function Prpath(byval Val)
For Each i In prow
if lcase(i.name)=lcase(val) then
prpath=i.executablepath:exit function
end if
next
end function
pros="smss.exe csrss.exe winlogon.exe"
spl_pros=split(pros,chr(32))
for each i in spl_pros
if len(i)>0 then
wsc.run "explorer /select,"&prpath(i),,1
end if
next来自：求助得到的回答

Answer 2

VBS属于可以直接调用和执行的脚本，当然需要在WINDOWS环境下，LINUX可不行。

你把这些代码复制，创建一个记事本，粘贴到记事本，然后保存，对记事本文件重命名为后缀名为.VBS的文件，双击就可以运行了。