Public Function ServicesInstalled() As Boolean
Dim svcs() As ServiceProcess.ServiceController
svcs = ServiceController.GetServices()
For Each svc In svcs
Console.WriteLine("{0} ==============", svc.ServiceName)
If svc.CanPauseAndContinue Then
Console.WriteLine("{0,15} Can Pause and continue ", svc.ServiceName)
End If
If svc.CanShutdown Then
Console.WriteLine("{0,15} Can shut down", svc.ServiceName)
End If
If svc.CanStop Then
Console.WriteLine("{0,15} Can Stop", svc.ServiceName)
End If
Next
End Function