[ Vb.Net ] User Processi - Genymus

[Genymus]

Salve, sto progettando un'applicazione per la gestione dei programmi e avrei bisogno di poter maneggiare solo quelli aperti da un solo utente ad esempio mario.

Del tipo:
Marco apre il processo iexplorer.exe
Poi cambia utente lasciando però aperta la sua sessione.
Mario arriava e si logga con il suo user.
Faccio finta che Mario non possa aprire internet explorer perchè io non voglio.

Ecco questo programma deve killare iexplorer.exe di mario lasciando attivo lo stesso processo dalla parte di marco

Come ottengo l'username che stà utilizzando il processo?

Grazie
Genymus

[matteo micanti]

http://www.dreamincode.net/code/snippet3334.htm
Ciao!

[Genymus]

pultroppo da errori e non riesco a farlo funzionare:

Messo così come sta, inserendo anche: Imports System.Management

Public Function KillProcessByUser(ByRef user As String) As Object
        Try
            'System.Management instances needed
            Dim query As New SelectQuery("Win32_Process")
            Dim searcher As New ManagementObjectSearcher(query)
            Dim observer As New ManagementOperationObserver()

            'loop through each item in the collection
            For Each process As ManagementObject In searcher.Get()
                Try
                    'this string will hold the information returned
                    'from InvokeMethod("GetOwner")
                    Dim info(1) As String
                    'get the information on the current process
                    process.InvokeMethod("GetOwner", CType(info, Object()))

                    'now make sure the owner is correct
                    If info(0).ToString().ToUpper() = user.ToUpper() Then
                        'kill the process
                        process.InvokeMethod(observer, "Terminate", Nothing)
                    End If
                Catch ex As Exception
                    MessageBox.Show(ex.ToString())
                    Return False
                End Try
            Next
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
            Return False
        End Try

        Return True
    End Function

Dà questi errori:

[> Tipo 'SelectQuery' non definito.
[> Tipo 'ManagementObjectSearcher' non definito.
[> Tipo 'ManagementOperationObserver' non definito.
[> Tipo 'ManagementObject' non definito.

Che cosa devo fare???

Grazie
Genymus

[matteo micanti]

Progetto >> Aggiungi Riferimento >> .NET >> System.Management
Ciao!

[Genymus]

Lo ho già fatto mettendo:
<< Imports System.Management >>

[MarcoGG]

Come già segnalato, aggiungi un Rif. allo spacename .Net System.Management, e usa il sistema della query solo per ricavare il nome dello User di ogni Processo. Per tutto il resto ti consiglio di dare un'occhiata alle ottime possibilità offerte dallo spacename System.Diagnostics e System.Diagnostics.Process.
Ad esempio, io risolverei così :

1. Funzione che mi restituisce l'Owner di un Process ( uso di System.Management ) :

   Private Function GetUserProcesso(ByVal P As Process) As String

        Dim Q As New System.Management.ObjectQuery("SELECT * FROM Win32_Process Where ProcessID = '" & P.Id & "'")
        Dim OS As New System.Management.ManagementObjectSearcher(Q)
        If OS.Get.Count = 0 Then Return "N.D."
        Dim arrayUsr(1) As String
        For Each MO As System.Management.ManagementObject In OS.Get
            MO.InvokeMethod("GetOwner", DirectCast(arrayUsr, Object()))
        Next
        Return arrayUsr(0)

    End Function

2. Popolo una ListBox ( lst_processi ) , con Pid, nome e owner di ogni processo :

        Dim idProcesso As Integer
        Dim nomeProcesso As String
        Dim utenteProcesso As String
        Dim P As System.Diagnostics.Process
        For Each P In System.Diagnostics.Process.GetProcesses()
            idProcesso = P.Id
            nomeProcesso = P.ProcessName
            utenteProcesso = GetUserProcesso(P)
            lst_processi.Items.Add(idProcesso & " / " & nomeProcesso & " / " & utenteProcesso)
        Next
        'Ordino alfabeticamente
        lst_processi.Sorted = True

Il solo motivo di ciò è che per qualche oscuro motivo un System.Diagnostics.Process non ha un .Owner o un .getOwner(), altrimenti farei tutto da System.Diagnostics...

[Genymus]

Funziona... come fare senza di voi.