Cómo verificar si un servicio de windows esta trabajando (started) en vb.net

By | 2010/08/03

Al desarrollar un robot que rastrea un sitio web y extra la información para luego ingresarla en una base de datos, me tope con la necesidad de tener un monitor que me permitiera verificar que el servicio esté funcionando o trabajando.
Para verificarlo uso la siguiente función:

Function verificarservicio(ByVal servicionombre As String) As Boolean

Dim miSC As ServiceProcess.ServiceController
miSC = New ServiceProcess.ServiceController(servicionombre)
If miSC.Status = ServiceProcess.ServiceControllerStatus.Stopped Then
‘ no trabaja
Return False
ElseIf miSC.Status = ServiceProcess.ServiceControllerStatus.Running Then
‘ funcionando correctamente
Return True
End If
End Function

Leave a Reply

Your email address will not be published. Required fields are marked *

This blog is kept spam free by WP-SpamFree.