VB 获取网卡硬件信息

VB 如何通过API获取网卡的硬件信息，比如：
我的网卡为：
Atheros L1 Gigabit Ethernet 10/100/1000Base-T Controller
如何通过这个网卡名获得像下面这个样的信息
\Device\Tcpip_{113F8C45-C710-4CA4-9745-A6AA9339F057}
我只要{}中的值
然后在注册表中读取这个子键中的内容，来判断该网卡是不是物理网卡

---

我觉得WMI就可以了。

---

有没有API呢，我要API呀，知道有没有，还请高手说下，谢谢了

---

取得网卡序列号

　　很多软件以取得网卡地址作为License验证，这不失为一个验证合法用户的好办法，不过要付出回复用户电话、传真的代价哦　^_^
　　将下面这段代码拷贝到程序中，然后在你的程序需要的时候调用EthernetAddress(0),该函数返回的字符串就是您机器上网卡的以太序列号。

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32

Private Type NCB
　ncb_command As Byte
　ncb_retcode As Byte
　ncb_lsn As Byte
　ncb_num As Byte
　ncb_buffer As Long
　ncb_length As Integer
　ncb_callname As String * NCBNAMSZ
　ncb_name As String * NCBNAMSZ
　ncb_rto As Byte
　ncb_sto As Byte
　ncb_post As Long
　ncb_lana_num As Byte
　ncb_cmd_cplt As Byte
　ncb_reserve(9) As Byte ' Reserved, must be 0
　ncb_event As Long
End Type
<