Visual Basic Forum

^^kev#### · Verfasst am: 29.06.2009, 14:10

Beschreibung:
Für eine Liste aller installierten Dienste kann man unter VB.NET auf die ServiceController-Klasse aus dem Namensraum "System.ServiceProcess" zurückgreifen. Die entsprechende DLL muss jedoch zunächst über "Projekt - Verweise" dem Projekt hinzugefügt werden.

Nachfolgendes Beispiel listet alle installierten Dienste mit dem jeweiligen Status auf (Running, Stopped, etc.) und zeigt diese in einer ListBox an.

Funktion:
Visual Basic: [code]Imports System.ServiceProcess

Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

' Liste aller Dienste erstellen mit jeweiligem Status
' in die ListBox eintragen
Dim oService As ServiceController

For Each oService In ServiceController.GetServices()
With oService
ListBox1.Items.Add(.ServiceName & " = " & .Status.ToString)
End With
Next
End Sub
End Class[/code]

Quelle: vbarchiv.net
_________________