Lambda Enumerable..::.First<(Of )>) Generic Method (IEnumerable<(Of )>), Func<(Of )>))

07-Nov-0909 Leave a comment

 
 
ms-help://MS.VSCC.v90/MS.MSDNQTR.v90.en/fxref_system.core/html/d232a6bf-5e64-d5b8-83f5-a0cf110f4107.htm
 

Public Function IsServiceRuning(ByVal scName As String) As Boolean

    Dim scServices() As ServiceController
    scServices = ServiceController.GetServices
    Dim sc As ServiceController = scServices.First(Function(s) s.ServiceName = scName)
    If sc.Status = ServiceControllerStatus.Running Then
        Return True
    End If

End Function

Filed under VB.Net

Leave a comment