之前要做个东西,写的一段,用的是 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.DefaultIPGateway(I) Exit For '只取第一个 Next End If Next Exit Function over: GetGateWayIP = "" End Function
文章来源于lcx.cc:VB 获取本机网卡的有效IP、MAC、网卡、网关等信息
写一个关于实业小投资葡萄园实例,今年的夏天过完了吃葡萄的季节了,所有的都是统计出来真实数据。 献给还在搞IT就知道网上下AV撸管容易猝死的屌丝们。转行吧,赚钱的路子其实有很多。 来自于混世魔王的BLOG的原创,转载不留出处的木JJ。 葡萄园是2年前投的,60亩…
- 左青龙
- 微信扫一扫
- 右白虎
- 微信扫一扫
评论