Mega Code Archive
Initialize an EnumerationOptions variable with an EnumerationOptions constructor and then gets all the instances of a WMI class an
<![CDATA[
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
]]>