怎么用几行代码就可以实行检测进程？

Question

我刚学可以不经编译就可以单独运行VBS编程，现在想知道怎样可以实现检测系统中某进程，如果不存在就运行指定路径的程序。菜鸟问题，希望大家不吝赐教。

Answer 1

Sub Command3_Click()
    Dim strComputer   As String
    Dim objWMIService As Object
    Dim objProcess    As Object
    Dim colProcessList
    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
                        strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("select * FROM Win32_Process")
    For Each objProcess In colProcessList
        enum1 = enum1 + objProcess.Name + ", "
        enum1 = enum1 + CStr(objProcess.processid) + ","
        enum1 = enum1 + CStr(objProcess.workingsetsize) + ","
        enum1 = enum1 + Chr(13) + Chr(10)
    Next
    Debug.Print enum1
End Sub