Auflisten der Namen aller Dienste im System

[xeEEenon]

hallo,

der Titel sagts eigentlich schon, ich möchte alle Namen der Dienste in meinem System.
Wie mach ich das ?

 

[xeEEenon]

Sub ListServices()
Dim ListBox1 As ListBox

Dim services() As System.ServiceProcess.ServiceController
Dim i As Integer
services = System.ServiceProcess.ServiceController.GetServices()
ListBox1.Items.Clear()
For i = 0 To services.Length - 1
ListBox1.Items.Add(services(i).ServiceName)
Next
End Sub


.... hab doch noch was in der MSDN gefunden ^^