Узнайте, кто запускает процесс на удаленной машине

Question

Я пытаюсь получить список процессов, запущенных на удаленной машине, и имя пользователя, на котором они запущены. Пока у меня есть:

Dim ps As System.Diagnostics.Process
For Each ps In System.Diagnostics.Process.GetProcesses("myserver")
    ListBox1.Items.Add(ps.ProcessName)
Next

Answer 1

Как получить разрешения на использование System.Diagnostics.Process.GetProcess (string)? - это может быть лучший способ сделать это.Это в C # Я могу перевести его, если хотите.

''' using System.Management;  
' don't forget! in VS you may have to add a new reference to this DLL
 Dim op As New ConnectionOptions()
 op.Username = "REMOTE_USER"
 op.Password = "REMOTE_PASSWORD"

Dim sc As New ManagementScope("\\REMOTE_COMPUTER_NAME\root\cimv2", op)

Dim query As New ObjectQuery("Select * from Win32_Process")

 Dim searcher As New ManagementObjectSearcher(sc, query)
 Dim result As ManagementObjectCollection = searcher.[Get]()

 For Each obj As ManagementObject In result
     If obj("Caption") IsNot Nothing Then
         Console.Write(obj("Caption").ToString() & vbTab)
     End If
     If obj("CommandLine") IsNot Nothing Then
         Console.WriteLine(obj("CommandLine").ToString())
         End If
Next



 Public Function GetProcessOwner(processId As Integer) As String
    Dim query As String = "Select * From Win32_Process Where ProcessID = " & processId
         Dim searcher As New ManagementObjectSearcher(query)
     Dim processList As ManagementObjectCollection = searcher.[Get]()

     For Each obj As ManagementObject In processList
         Dim argList As String() = New String() {String.Empty, String.Empty}
         Dim returnVal As Integer = Convert.ToInt32(obj.InvokeMethod("GetOwner", argList))
         If returnVal = 0 Then
        ' return DOMAIN\user
             Return argList(1) & "\" & argList(0)
         End If
     Next

     Return "NO OWNER"
 End Function