Windowsでのサービスのサービス名の取得

サービス名の取得とかやって、何が面白いんだというところがあるかと思いますが。
きっとアレです。環境情報表示とか、問題切り分け用にPCの環境データを収集するときに使うんだと思います。

• -

Windowsでのサービスのサービス名の取得です。
参照設定で、System.ServiceProcess.dllを参照に加えてください。
以下のコードでは、存在するサービス名を列挙し、コンソールに表示させています。

Function PrintSvcs()
    Dim Svcs() As ServiceProcess.ServiceController
    Svcs = System.ServiceProcess.ServiceController.GetServices
    For Each svc As ServiceProcess.ServiceControllerInSvcs In Svcs
        Console.WriteLine(svc.DisplayName.ToString)
    Next
End Function