Windows VB.Net Tutorial

Imports System
Imports System.Management
Public Class RemoteConnect
    Public Overloads Shared Function Main(ByVal args() As String) As Integer
        Dim opt As New EnumerationOptions
        opt.EnumerateDeep = True
        Dim mngmtClass As New ManagementClass("CIM_Service")
        Dim o As ManagementObject
        For Each o In mngmtClass.GetInstances(opt)
            Console.WriteLine(o("Name"))
        Next o
        Return 0
    End Function
End Class