Class clsExtServiceController
        Inherits ServiceProcess.ServiceController
        '
#Region " Variablen "
        Dim _ExePath As String = String.Empty
        Dim _Beschreibung As String = String.Empty
        Dim _Dienstname As String = String.Empty
#End Region
        '
#Region " Eigenschaften "
        ReadOnly Property Beschreibung() As String
            Get
                Return _Beschreibung
            End Get
        End Property
        ReadOnly Property ExePfad() As String
            Get
                Return _ExePath
            End Get
        End Property
#End Region
        '
        Sub New(ByVal Dienstname As String)
            Me.ServiceName = Dienstname
            _Dienstname = Dienstname
            Try
                _ExePath = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
                  "SYSTEM\CurrentControlSet\Services\" & _Dienstname, _
                  False).GetValue("ImagePath", String.Empty).ToString
                _Beschreibung = _
                Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
                "SYSTEM\CurrentControlSet\Services\" & _Dienstname, _
                False).GetValue("Description", String.Empty).ToString
            Catch Fehler As Exception
                _Dienstname = Dienstname
                _Beschreibung = String.Empty
                _ExePath = String.Empty
            End Try
        End Sub
        Public Overloads Shared Function GetServices() As _
          Collections.Generic.List(Of clsExtServiceController)
            Dim Temp As Collections.Generic.List(Of clsExtServiceController) = _
            New Collections.Generic.List(Of clsExtServiceController)
            For Each oService As ServiceProcess.ServiceController In _
            ServiceProcess.ServiceController.GetServices
                Temp.Add(New clsExtServiceController(oService.ServiceName))
            Next oService
            Return Temp
        End Function
    End Class