'Verweis auf System.Management muss gesetzt werden!!!
Imports System.Management
 
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Prozessname As String = "notepad"
        Dim Prozesseigner As String = Prozesse_ThreadListe(Prozessname)
        MessageBox.Show("Der Prozesseigner lautet: " & Prozesseigner)
    End Sub
 
 
    Private Function Prozesse_ThreadListe(ByVal Prozessname As String) As String
        Dim p As Process
        Dim pp() As Process
 
        pp = Process.GetProcesses
 
        For Each p In pp
            If p.ProcessName = Prozessname Then
                Return getLocalProcessOwner(p.Id)
            End If
        Next
    End Function
 
    Private Shared Function getLocalProcessOwner(ByVal pid As Integer) As String
        Dim ProcessOwner As String = ""
        Dim x As New ObjectQuery("Select * From Win32_Process where Handle='" & _
          pid & "'")
        Dim mos As New ManagementObjectSearcher(x)
        For Each mo As ManagementObject In mos.[Get]()
            Dim s As String() = New String(1) {}
            mo.InvokeMethod("GetOwner", DirectCast(s, Object()))
            Try
                ProcessOwner = s(0).ToString()
            Catch ex As Exception
                ProcessOwner = "unbekannt"
            End Try
 
            Exit For
        Next
 
        Return ProcessOwner
    End Function
End Class

EALA FREYA FRESENA