VB 2010 Express Wie kann ich laufende Prozesse auslesen

Hallo,

ich hoffe meine Frage ist nicht zu schwer. Wäre schön, wenn mir jemand helfen könnte, unter Umständen auch mit ggf einem Codebeispiel.

Ich muss beim Start meines VB Programms ermitteln, ob bereits ein spezielles Programm gestartet wurde. Ich nenne es mal "MyAppl".
Wie kann ich dies am einfachsten abfragen?

Hab mich bei msdn schon durch die Referenz gewühlt - aber das ist natürlich sehr aufwändig und war nicht erfolgreich.

Vielen Dank

mpmichael

Module Module1
    Dim oWMI, oProc
    Dim i As Integer
    Sub Main()
        oWMI = GetObject("winmgmts:{(Security)}")  
        oProc = oWMI.ExecQuery("select * from win32_process where name='notepad.exe'")  
        i = 0
        For Each proc In oProc
            i = i + 1
        Next
        If i > 0 Then
            Console.WriteLine("Notepad schon gestartet")  
        End If
    End Sub

End Module

Private Function IsProcessOpen(ByVal ProcName As String) As Boolean
If Process.GetProcessesByName(ProcName).Length > 0 Then Return True
End Function