Benutzer eines Prozesses ermitteln

eisenerz · 12. Februar 2012, 17:25

Hallo zusammen,

ich möchte mit meinem Programm mit VisualBasic 2008 von allen laufenden Prozessen die Benutzer auslesen, b.z.w. auslesen, ob der Prozess dem angemeldeten Benutzer gehört.

Das auslesen einer Prozessliste bekomme ich hin. Wie aber kann ich die Benutzer auslesen?

Danke im Voraus!

haiyyu · 12. Februar 2012, 17:34

Guck mal hier: benreichelt.net/blog/2006/01/31/get-process-user-name/

eisenerz · 12. Februar 2012, 18:17

Wie kann ich diesen Code in VB 2008 verwenden?

SystemUnknow · 12. Februar 2012, 18:26

processe aufliesten: vbarchiv.net/tipps/tipp_1600-l…ozesse-ermitteln-net.html
in schleife Benutzer ermitteln: dotnet-snippets.de/dns/ownerer…es-ermitteln-SID1358.aspx

eisenerz · 12. Februar 2012, 18:38

Danke erstmal. Wenn ich diesen Code einfüge, bekomme ich über 10 Fehler angezeigt.

Habe ihn daraufhin ein wenig angepasst, doch jetzt ist das "static" ein Problem. Wenn ich es entferne, bekomme ich wieder zig Fehler.

Quellcode

private Function static getLocalProcessOwner(int pid) As String
{
string ProcessOwner = "";
ObjectQuery x = new ObjectQuery("Select * From Win32_Process where Handle='" + pid + "'");
ManagementObjectSearcher mos = new ManagementObjectSearcher(x);
foreach (ManagementObject mo in mos.Get())
{
string[] s = new string[2];
mo.InvokeMethod("GetOwner", (object[])s);
ProcessOwner = s[0].ToString();
break;
}
return ProcessOwner;
}

Was mache ich falsch?

SystemUnknow · 12. Februar 2012, 18:41

Du sollst C# in VB net konvertieren, Konverter bekommst jede menge im netz.
Konvertieren und fehler beheben.

eisenerz · 12. Februar 2012, 18:51

Danke.

Bei den folgenden Fehlern komme ich jedoch nicht weiter:

Der Typ "ObjectQuery" ist nicht definiert.
Der Typ "ManagementObjectSearcher" ist nicht definiert.
Der Typ "ManagementObjec" ist nicht definiert.

Wozu gehören diese Typen? Wenn ich System.Managment importiere ändert sich nichts.

haiyyu · 12. Februar 2012, 18:58

VB.NET-Quellcode

Imports System.Management

über deinen Code schreiben.
Falls kein Verweis gesetzt ist, das auch noch machen.

SystemUnknow · 12. Februar 2012, 18:59

du muß Verweis auf "WMI -> Windows Management Instrumentations" setzen, dann mit "Imports" importieren.

eisenerz · 12. Februar 2012, 19:10

System.Management zu importieren nutz nichts. Unter Verweise kann ich keinen Verweis zu irgendetwas setzten, dass "WMI" enthält.

Lukas · 12. Februar 2012, 19:12

Du musst System.Management zu den Verweisen hinzufügen.

eisenerz · 12. Februar 2012, 19:31

Es lässt sich jetzt erstellen, jedoch wird bei

Quellcode

ProcessOwner = s(0).ToString()

immer eine System.NullReferenceException geworfen. Was soll ich denn da noch instanzieren?

Danke schonmal.

haiyyu · 12. Februar 2012, 19:33

Übergibst du der Methode eine gültige Prozess-ID?

eisenerz · 12. Februar 2012, 19:35

Ja, eine von einem, Prozess, der unter SYSTEM ausgeführt wird.

haiyyu · 12. Februar 2012, 19:36

Zeig uns am besten mal den Code, den dir der Übersetzer ausgespuckt hat. Ganz perfekt ist das Ding ja schließlich noch nicht.

eisenerz · 12. Februar 2012, 19:38

Das hier hat der Übersetzter auf developerfusion.com/tools/convert/csharp-to-vb/ ausgespuckt:

Quellcode

Private Shared Function getLocalProcessOwner(ByVal pid As Integer) As String
Dim ProcessOwner As String = New 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()))
ProcessOwner = s(0).ToString()
Exit For
Next
Return ProcessOwner
End Function

haiyyu · 12. Februar 2012, 19:43

Folgender Code funktioniert bei mir problemlos, wenn ich eine gültige Prozess-ID eingebe:

VB.NET-Quellcode

Imports System.Management
Module Program
Private Function getLocalProcessOwner(ByVal pid As Integer) As String
Dim ProcessOwner As String = New 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()))
ProcessOwner = s(0).ToString()
Exit For
Next
Return ProcessOwner
End Function
Sub Main()
While True
For Each Prc As Process In Process.GetProcesses()
Console.WriteLine(Prc.Id & ": " & Prc.ProcessName)
Next
Console.WriteLine()
Console.Write("User of: ")
Dim ID As Integer = Integer.Parse(Console.ReadLine())
Console.WriteLine(" Result: " & getLocalProcessOwner(ID))
Console.ReadLine()
End While
End Sub
End Module

eisenerz · 12. Februar 2012, 19:55

Ich habe gerade festgestellt, dass der Fehler nur dann auftritt, wenn der Prozess unter SYSTEM oder Lokaler Dienst ausgeführt wird. Bei anderen Prozessen funktioniert es. Bei einer ungültigen PID wird "" zurückgegeben.

Danke an alle!!!

Benutzer eines Prozesses ermitteln

Benutzer eines Prozesses ermitteln

Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben