VB 获取 网关 路由器mac地址

Private Sub Form_Load()

strComputer = ""

Set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set wbemObjectSet = wbemServicesExecQuery("SELECT  FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'TRUE' ")

For Each wbemobject In wbemObjectSet

MsgBox "IP: " & wbemobjectipaddress(0) & vbCrLf & _

"Mac:" & wbemobjectmacaddress(0)

Shell "cmd /c arp -s " & wbemobjectipaddress(0) & " " & Replace(wbemobjectmacaddress(0), ":", "-")

Next

End Sub

ip获取设置

上网之后，开始-运行-键入“cmd”-确定-键入“arp -a” 可以看到所有和本机通信过的局域IP和MAC，必然包括网关MAC，比如这样： Interface: 1921681102 --- 0x2 Internet Address Physical Address Type 19216811 0A-0B-0C-01-02-03 dynamic 1921681100 0A-0B-0C-01-03-05 dynamic 如果19216811是网关IP，那么“0A-0B-0C-01-02-03”就是网关MAC。

记得采纳啊

以上就是关于VB 获取 网关 路由器mac地址全部的内容，包括:VB 获取 网关 路由器mac地址、请问如何获取本机的网关MAC地址啊注意了是网关MAC地址，不是MAC、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！