Discussion :

[maloue]

Bonjour,
Je ne trouve pas comment récuperer le nom du user associé à un prcessus exemple pour notepad.
Je cherche à savoir qui a lance un process, ici par exemple pour notepad.

Par avance merci pour votre réponse.

Code :

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

1
2
3
4
5
6
7
8
9
 
Traiement_Tremine = True
        Dim Prc() As Process = Process.GetProcesses() 
        For x As Integer = 0 To UBound(Prc) 
            Zone = Prc(x).ProcessName.ToUpper(New System.Globalization.CultureInfo("fr-FR", False))
            If Zone = "NOTEPAD" Then
                ' Comment  récuperer le user associé au lancement de notepad
            End If
        Next

[ACIVE_CS]

Bonjour,
Déjà si tu codes en vb.net (la présente section) UBound(x) est incorrect, c'est du vb6
En vb.net se traduit par:

Code :

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

For x As Integer = 0 To Prc.GetUpperBound(0) - 1

D'ailleurs j'aurais utilisé un 'For Each' à la place...

D'autre part, je ne vois pas ce que tu veux faire concrètement, mais j'ai vu que tu peux utiliser 'pinvoke', explications sur cette page: http://www.pinvoke.net/default.aspx/...cessToken.html

Ce qui devrait donner quelque chose comme:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Public Class Form1
    Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
    Declare Function OpenProcessToken Lib "advapi32.dll" ( _
    ByVal ProcessHandle As IntPtr, _
    ByVal DesiredAccess As Integer, _
    ByRef TokenHandle As IntPtr) As Boolean
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ListeOk As String = ""
        Dim ListeKo As String = ""
        For Each p As Process In Process.GetProcesses
            If p.ProcessName.Length > 0 Then
                Try
                    Dim hToken As IntPtr
                    If OpenProcessToken(p.Handle, Security.Principal.TokenAccessLevels.Query, hToken) Then
                        Using wi As New Security.Principal.WindowsIdentity(hToken)
                            ListeOk &= p.ProcessName.ToString & ": " & wi.Name & Environment.NewLine
                        End Using
                        CloseHandle(hToken)
                    End If
                Catch ex As Exception
                    ListeKo &= p.ProcessName.ToString & ": " & ex.Message & Environment.NewLine
                End Try
            End If
        Next
        MessageBox.Show(ListeOk)
        MessageBox.Show(ListeKo)
    End Sub
End Class

[maloue]

Bonjour et merci pour votre réponse.
En fait je voudrais dans l’exemple donné récupérer le nom de l’utilisateur associé au process notepad.
Nom affiché dans le gestionnaire des tâches windows.

Nom de l'image PID Nom d'utilisateur
notepade 1352 Pierre

[ACIVE_CS]

Hé bien,
Dans l'exemple que je t'ai fait, dans la première liste qu'il t'affiche tu as 'notepad: [nom du PC] "\" [nom de l'utilisateur]'
Si tu veux le nom, le PID et l'utilisateur tu peux remplacer la ligne :

Code :

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

ListeOk &= p.ProcessName.ToString & ": " & wi.Name & Environment.NewLine

Par :

Code :

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

ListeOk &= p.ProcessName.ToString & ": " & p.Id.ToString & " - " & wi.Name.Split("\"c)(1) & Environment.NewLine