WMI 获取所有物理网卡信息.目前只能获取已连接的.

[lucifercxw]

        Dim searcher As New System.Management.ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
        Dim moc2 As System.Management.ManagementObjectCollection = searcher.Get()

        For Each mo As System.Management.ManagementObject In moc2
            Dim pde As System.Management.PropertyDataCollection.PropertyDataEnumerator = mo.Properties.GetEnumerator()


            If mo("IPEnabled") Then
                netid = mo("MACAddress")
                ip = mo("IpAddress")(0)
                mactp = mo("Description")
                'Exit For
                If mactp.Contains("PCI") Then
                    mactp = "有线网卡:"
                ElseIf mactp.Contains("Wi") Then
                    mactp = "无线网卡:"
                End If

                mac += mactp & " " & netid & "  "

            End If

        Next

只有网卡开启的时候可以获取,禁用的网卡就没有办法获取.

[清晨曦月]

WMI可以被欺骗。

[wq1282]

Dim searcher As New System.Management.ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Dim moc2 As System.Management.ManagementObjectCollection = searcher.Get()

For Each mo As System.Management.ManagementObject In moc2
Dim pde As System.Management.PropertyDataCollection.PropertyDataEnumerator = mo.Properties.GetEnumerator()


If mo("IPEnabled") Then
netid = mo("MACAddress")
ip = mo("IpAddress")(0)
mactp = mo("Description")
'Exit For
If mactp.Contains("PCI") Then
mactp = "有线网卡:"
ElseIf mactp.Contains("Wi") Then
mactp = "无线网卡:"
End If

mac += mactp & " " & netid & " "

End If

Next

删除红色部分

[irix2008]

可以通过访问注册表来获得禁用或未连接的物理网卡地址

[良朋]

哈哈，3楼看的真仔细。

[xyhello]

我以前试过要读取被禁用的网卡的mac，不管是读取注册表 或查wmi还是读api, 基本上中英文的资料都找了，可以确定无法实现

[轻鸿万里]

查询注册表就知道了。