VB 获取本机网卡的有效IP、MAC、网卡、网关等信息

最新推荐文章于 2017-02-23 21:18:15 发布

iteye_11062

最新推荐文章于 2017-02-23 21:18:15 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏：技术杂绘

本文链接：https://blog.youkuaiyun.com/iteye_11062/article/details/82564532

这段VB代码用于获取本机网卡的IP、MAC、网关等有效网络配置信息，利用Win32_NetworkAdapterConfiguration类进行查询。适用于需要此类信息的简单应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

之前要做个东西，写的一段，用的是 Win32_NetworkAdapterConfiguration，网上的基本都是错误的，很少有这方面的资料，就自己写了一段，很简单的东西，希望对其他人有帮助。

Win32_NetworkAdapterConfiguration 更多参数及用法，请查阅：http://msdn.microsoft.com/en-us/library/aa394217.aspx

Public Function GetGateWayIP() As String
'获取本机网卡的有效IP、MAC、网卡、网关等信息
On Error GoTo over
Dim objWMI As Object, colIP As Object, IP As Object, I As Long
Set objWMI = GetObject("winmgmts://./root/cimv2")
Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") '只获取有效IP
'Win32_NetworkAdapterConfiguration 更多参数及用法，查阅：http://msdn.microsoft.com/en-us/library/aa394217.aspx
For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
'MsgBox "网关：" & IP.DefaultIPGateway(I) & vbCrLf & "地址：" & IP.IPAddress(I) & vbCrLf & "网卡：" & IP.Description(I) & vbCrLf & "Mac：" & IP.Macaddress(I)
GetGateWayIP = IP.Default