Question

我想找到网络采用者的MAC地址，我也有一个工作代码，但我的问题是它只有在启用IP地址时才有效，否则它将无法获取地址是否有任何解决方案来查找MAC地址即使IP Enabled为false 如果它可能用示例代码更新我

这是我找到MAC的代码

Dim myWMI As Object, myObj As Object, Itm

Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myObj = myWMI.ExecQuery("SELECT * FROM " & _
                 "Win32_NetworkAdapterConfiguration " & _
                 "WHERE IPEnabled = True")
For Each Itm In myObj
Dim macme As String
Dim NewMac As String
macme = Itm.MACAddress
NewMac = Replace(macme, ":", "")
Text1.Text = NewMac
    Exit For
Next

Answer 1

查询重量级WMI服务不是应用程序的最佳选择。这是一个仅用于管理脚本的便利功能。可以在旧版Windows上禁用甚至卸载该服务。

相反，您可以直接转到源代码。 GetAdaptersInfo function是最明显的候选人之一。

使用此代码涉及的代码多于此处可方便地内联的代码。在VB6中发布许多使用工作源代码的示例，这些示例包含允许上传附件的程序员友好型站点。

无论你怎么做，无论如何，这样做的价值是值得怀疑的。许多集成网络适配器允许用户无论如何都插入自己的MAC地址值。今天相当多的PC都依赖于USB网络适配器，这些适配器甚至不会一直插入，并且可能会在设备之间进行交换。

使用VB6查找MAC地址

1 个答案: