Gibt einen boolschen Wert zurück der angibt ob der angegebene Dienst gestartet ist.
'Verweis auf System.ServiceProcess hinzufügen !
Imports system.ServiceProcess
Public Function ServiceAvailable(ByVal Dienst As String) As Boolean
Dim Service As ServiceController = New ServiceController(Dienst)
Return CBool(Service.Status = ServiceProcess.ServiceControllerStatus.Running)
Service.Close()
End Function
3 Kommentare zum Snippet