(VB.NET) Listar conexões
Imports System.NetImports System.ManagementModule Module1Sub Main()Dim conexoes As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapter")For Each mo As ManagementObject In conexoes.Get()Console.WriteLine(mo("Name").ToString())NextConsole.ReadLine()End SubEnd Module
Abraços!