Test to see if a program is open

[kdw3]

Hello,

I am looking for a simple vbscript that can test to see if a program is open/running. Does anybody have something like that out there?

Thank you for your time.

Kyle

 

[dm4ever]

Do a search for WMI and Win32_Process.

http://msdn2.microsoft.com/en-us/library/aa394372.aspx

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[kdw3]

I have looked at that link before and it did not help me. I am looking for someone whom has successfully done this and has some code they are willing to share.

Thank you,

 

[kmcferrin]

This is pretty easy to do. You just bind to the WMI provider and get a collection of processes running on the box. Then you compare their names one by one to the name of the process that you're looking for to see if you get a match.

At this point I'm going to highly recommend that you download Scriptomatic 2.0 from the Microsoft Technet Script Center. This is an invaluable tool for someone learning to script. You can use it to see all of the attributes of the Win32_Process class (the one that you want is .Name most likely). Scriptomatic will write 75% of this script for you.

 

[jfdabiri]

i think this is what you need:

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process WHERE name ='your_program'")

For Each objProcess in colProcess
    strList = strList & objProcess.Name & " is running"                      
Next

msgbox strList

 

[kdw3]

Thank you!