'要使得引用System.Management有效，先通过菜单
创新互联建站是一家集网站建设,林州企业网站建设,林州品牌网站建设,网站定制,林州网站建设报价,网络营销,网络优化,林州网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
'[项目]--[添加引用]，在“.Net”选项卡里，选择“System.Management”，单击[确定]
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each MySearcherObj As ManagementObject In MySearcher.Get
If CBool(MySearcherObj("IPEnabled")) Then
MsgBox(MySearcherObj("IPAddress")(0))
End If
Next
End Sub
End Class
出现这样的原因，大部分是由于 无线网卡没有安装到位，接触不良造成的。
网卡可以多插几次。如果这样，问题没有解决，带着您的笔记本找网卡服务商，如果他们解决不了，
那问题可能就在于笔记本本身。带着您的本本和卡找您的本本服务商。
有这个API，但是不是所有的网卡都支持【而且增加了CPU的压力】。VB的话有点不合适，毕竟无论是驱动级的控制还是API层的捕获，都是C,C++的。建议你自己仔细看看文档，了解一下其本质。--------------如果你要以此来了解一些网络控制诸如防火墙一类的开发，我建议你阅读一下人民邮电出版社的《Windows程序设计/C++》。这本书上有一套网络层流控的实例。当然，如果你坚持用VB，也可以，我帮不到什么忙。