以下是引用xiaoqiwei在2012-2-15 23:03:00的发言：
那能够获取到本机的MAC地址呢？
1、添加引用： system.management.dll
2、代码：
Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
If IsDBNull(mo.Item("macaddress")) = False Then
If mo.Item("macaddress") <> "" Then
output.show(mo.Item("macaddress"))
End If
End If
Next
加好友 
发短信
Post By：2012/2/15 8:40:00 [显示全部帖子]
