Discussion :

[maxxou]

Bonjour,

Je cherche a obtenir le nom d'utilisateur rattaché à un service windows, c est a dire si vous faites CTRL + ALT + SUPR et que vous allez dans gestionnaire de taches puis dans processus vous avez une liste des services windows qui tournent actuellement sur votre machine. La 2eme colonne de ce tableau se nomme "Nom de l'utilisateur". j aimerais obtenir cette information. J arrive comme ci dessous a lister les services et a obtenir leurs noms par contre cette info... je la cherche en vain !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Prc() As Process = Process.GetProcesses() 'on récupère la liste des processus de Windows: ATTENTION ce sont des tableaux
        For x As Integer = 0 To UBound(Prc) 'on fait toute la liste dans une boucle
            MsgBox(Prc(x).ProcessName)
        Next
    End Sub
End Class

Merci

[maxxou]

Bon j'ai trouvé tout seul

Pour ceux que ca interesse....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Imports System.Management
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selectQuery As SelectQuery = New SelectQuery("Win32_Process")
        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(selectQuery)
        For Each proc As ManagementObject In searcher.Get
            MsgBox(proc("Name").ToString)
            Dim s(1) As String
            proc.InvokeMethod("GetOwner", CType(s, Object()))
            MsgBox(("User: " & (s(1) + ("\\" + s(0)))))
        Next
        Console.ReadLine()
    End Sub
End Class