Set wmi = GetObject("winmgmts:")
Dim myTASK
myTASK = "svchost.exe"
 
wql = "select * from win32_process"
Set result = wmi.ExecQuery(wql)
 
For each process in result
   PN = process.Name
      If PN = myTASK Then
			mlist = mlist & " Name :" & process.Name & "   -PID: " & process.ProcessID & _
  "  -CMD : " & process.CommandLine & _
			"  -Treads : " & process.ThreadCount & vbcr
			End If
Next
 
msgbox mlist, vbinformation , "Aufliestung der gesuchten Dienste  :" & myTASK
 
Set result = Nothing

Private Sub Form_Load
 
SystemMonitor1.Counters.Add "\Process(svchost)\Prozessorzeit(%)"
SystemMonitor1.Counters.Add "\Prozess(svchost)\Threadanzahl"
SystemMonitor1.Counters.Add "\Prozess(svchost#1)\Prozessorzeit(%)"
SystemMonitor1.Counters.Add "\Prozess(svchost#1)\Threadanzahl"
 
End Sub