Imports System.Management

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

End Sub
End Module

Clickbank mall, make money
sell software, make money
Hosted magazine site : make money with no website