Visual Basic 2008 - Windows-Services monitoren und ggf. nachstarten

Hallo zusammen,

nach wirklich umfangreicher aber ergebnisloser Suche im Internet hoffe ich nun, hier ggf. Hilfe zu finden.

Ich bin gerade dabei, eine kleine Anwendung zu schreiben, die den Status und den Startup-Typ von Windows-Diensten miteinander vergleichen soll und automatisch zu startende Dienste dann nachstartet. Die installierten Dienste und deren Status zu ermitteln stellt kein Problem dar:

Imports System.ServiceProcessModule Module1 Dim srv() As ServiceController = ServiceController.GetServices Dim s As ServiceController Sub Main() Console.Clear() For Each s In srv With s Console.WriteLine(.ServiceName) Console.WriteLine(vbTab & "- " & .DisplayName) Console.WriteLine(vbTab & "- " & .Status) 'Die folgende Zeile soll den Startup-Typ ausgeben End With Next Console.ReadLine() End SubEnd Module

Ich finde jedoch im VB2008 Express Edition keine Möglichkeit, den Startup-Typen auszulesen. Ist dies überhaupt möglich und wenn ja wäre ich dankbar, wenn mir jemand weiterhelfen könnte.

Danke schon mal!
André