Note: If you want to modify this to check processes on other machine, just modify strObject.
Function IsProcessRunning(ByVal strProcess)
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & Environment.MachineName.ToString
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If UCase(Process.name) = UCase(strProcess) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function
