VBS Script Assistance 4

[Pleonasm]

I am seeking a sample VBS script for Windows XP that checks to see if a process is currently running (e.g., "taskmgr.exe") and, if it is not running, then launches a program (e.g., "C:\Windows\Notepad.exe").

Thank you for your assistance.

 

[linney]

http://www.microsoft.com/technet/scriptcenter/default.mspx

Explore every link on the page.

 

[Rick998]

You could use something like the following:

Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")

Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()
Set props = service.ExecQuery("select name, description from Win32_Process where name = 'taskmgr.exe'")
num = props.Count

If num > 0 Then
   'Program is running
   WSH.Run "C:\Windows\Notepad.exe"
Else
   'Program is not running
   WSH.Popup "Program is not running"
End If

Set WSH = Nothing

Hope this helps...

 

[melonhawg]

Rick998
This script is neet. I replaced 'taskmgr.exe' with 'FahCore_78.exe. I also created a text file called 'C:\Folding@Home\Folding_DNA.txt' (weird but the file name doesn't like spaces)

The txt file says.... "Folding DNA!!!"

I run Folding@Home on multi PCs and this works great!

 

[markdmac]

You would need to include the file name within quites to use spaces.

I hope you find this post helpful.

Regards,

Mark

 

[Pleonasm]

Two helpful articles by Microsoft that are relevant to this thread:

Verify Process Availability

http://www.microsoft.com/technet/scriptcenter/scripts/os/process/monitor/pcmovb13.mspx

How Can I Re-Launch Internet Explorer if No Other Instances are Running?

http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb06/hey0228.mspx