首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么获取两块网卡的MAC地址

2012-01-21 
如何获取两块网卡的MAC地址?在CSDN里找到了获取一个MAC地址的方法,但不好用,有时读不出网卡MAC,不知为什么

如何获取两块网卡的MAC地址?
在CSDN里找到了获取一个MAC地址的方法,但不好用,有时读不出网卡MAC,不知为什么,哪位有好点的方法,请指点,谢了

[解决办法]
Sub wmiGetMac()
Dim WmiObjSet, Obj
Set WmiObjSet = GetObject( "winmgmts:{impersonationLevel=impersonate} "). _
InstancesOf( "Win32_NetworkAdapterConfiguration ")
On Local Error Resume Next
For Each Obj In WmiObjSet
MsgBox Obj.MACAddress
MsgBox Obj.Description
MsgBox Obj.DNSHostName
MsgBox Obj.DNSDomain
If Not IsNull(Obj.IPAddress) Then
For i = 0 To UBound(Obj.IPAddress)
MsgBox "IP address: " & Obj.IPAddress(i)
Next
End If
Next
End Sub
[解决办法]
http://community.csdn.net/Expert/topic/5333/5333574.xml?temp=.9415247

热点排行