Option Explicit
Dim objWMIService, objProcess, colProcess, objShell
Dim strComputer, strList, status, strProgramPath
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")
status = 0
For Each objProcess in colProcess
If objProcess.Name = "mysoftware.exe" then
status = 1
End If
Next
if status = 0 then
set objShell = createobject("Wscript.Shell")
objShell.Run chr(34) & "C:\Program Files\mysoftware.exe" & Chr(34)
End if
WScript.Quit