Module Module1
Sub Main()
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim co As ConnectionOptions
Dim oq As System.Management.ObjectQuery
Dim ms As System.Management.ManagementScope
Dim mo As ManagementObject
Dim strQuery As String
strQuery = "SELECT * FROM Win32_Service"
co = New ConnectionOptions()
ms = New System.Management.ManagementScope("\\" + "." + "\root\cimv2", co)
oq = New System.Management.ObjectQuery(strQuery)
query = New ManagementObjectSearcher(ms, oq)
Try
queryCollection = query.Get()
Catch e1 As Exception
Console.WriteLine("Error: " + e1.ToString())
End Try
For Each mo In queryCollection
Console.WriteLine(mo("Name").ToString() + " [" + mo("StartMode").ToString() + "]")
Next