Question

vbs判断一个程序是否运行

Answer 1

'test.vbs

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'javaw.exe'")
If colProcessList.Count>0 Then
WScript.Echo "运行"
Else
WScript.Echo "没运行"
End If
存为test.vbs文件，双击执行即可
或命令行 cscript.exe c:\test.vbs
VBScript ，Visual Basic Script的简称，是微软公司出品的脚本语言，有时也被缩写为VBS。VBScript是asp动态网页默认的编程语言，配合asp内建对象和ADO对象，用户很快就能掌握访问数据库的asp动态网页开发技术。
VBScript是微软开发的一种解析型的服务端（也支持客户端）脚本语言，可以看作是VB语言的简化版，与VBA的关系也非常密切。它具有原语言容易学习的特性。目前这种语言广泛应用于网页和ASP程序制作，同时还可以直接作为一个可执行程序。用于调试简单的VB语句非常方便。

Answer 2

Set wsh=createobject("wscript.shell")
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
name = "1.exe"'你的程序名称
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_process where name='"&name&"'")
If wmiObjects.count=0 then
msgbox "程序正在运行！"
End If

Answer 3

set prow=getobject("winmgmts:\\"&strcomputer).instancesOf("win32_process")
public function Prod(byval Val)
For Each i In prow
if lcase(i.name)=lcase(val) then
prod=prod+1
end if
next
end function
if prod("1.exe")>0 then msgbox "1.exe正在运行"

Answer 4

判断进程是否存在尽可以了