可以获取到网卡，不知道怎样启用和禁用
 Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")

        Dim share As ManagementObject

        ()

        For Each share In searcher.Get()

            If Not (share.Item("IPAddress") Is Nothing) Then

             Me.ListBox1.Items.Add(share("Description").ToString.Trim)
            End If

        Next share

谢谢你的代码，有时间测试一下