Dim mo As Management.ManagementObject
        Dim mc As Management.ManagementClass
        Dim moc As ManagementObjectCollection
 
 
        mc = New ManagementClass("\root\cimv2:WIN32_NetworkConnection")
 
        moc = mc.GetInstances
 
        For Each mo In moc 
            Debug.WriteLine(mo("Name"))
            Debug.WriteLine(mo("ConnectionState"))
        Next