【access源码】一个用于获取网卡MAC地址或IP地址的通用函数\获取本机内网IP的示例
时 间:2010-08-08 00:00:00
作 者:红尘如烟 ID:10768 城市:成都
摘 要:返回由指定分隔符分隔的未被禁用的网卡MAC地址或IP地址,具体的返回内容由Index参数确定
正 文:
'=========================================================================================================
'函数名称: GetNICInfo
'功能描述: 返回由指定分隔符分隔的未被禁用的网卡MAC地址或IP地址,具体的返回内容由Index参数确定
'输入参数: Index 必需的,要返回的信息(0返回MAC地址,1返回IPV4地址,2返回IPV6地址
' Delimiter 可选的,存在多个网卡(可能是物理的或虚拟的)时,返回信息的分隔字符
'返回参数: 返回所有被启用网卡的信息(如果有多个网卡,则由指定分隔符分隔
' 没有网卡或网卡全部被禁用时返回空字符串("")
'使用示例: =GetNICInfo(1) '返回示例:192.168.1.100
'相关调用:
'使用注意:
'兼 容 性: 使用win32_NetworkAdapterConfiguration类实现,XP和Win7操作系统测试通过
'参考资料:
'作 者: 红尘如烟
'创建日期: 2010-8-7
'=========================================================================================================
Public Function GetNICInfo(ByVal Index As Integer, Optional ByVal Delimiter As String = vbCrLf) As String
On Error GoTo ErrorHandler
Dim objWMIService As Object
Dim objItems As Object
Dim objItem As Object
Dim strTemp As String
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
strTemp = "Select * FROM win32_NetworkAdapterConfiguration Where IPEnabled=True"
Set objItems = objWMIService.ExecQuery(strTemp)
strTemp = ""
For Each objItem In objItems
Select Case Index
Case 0 'MAC地址
strTemp = objItem.MACAddress
Case 1 'IPV4地址
strTemp = objItem.IPAddress(0)
Case 2 'IPV6地址
strTemp = objItem.IPAddress(1)
End Select
If GetNICInfo <> "" And strTemp <> "" Then GetNICInfo = GetNICInfo & Delimiter
GetNICInfo = GetNICInfo & strTemp
Next
ExitHere:
Set objWMIService = Nothing
Set objItems = Nothing
Set objItem = Nothing
Exit Function
ErrorHandler:
' MsgBox Err.Description, vbCritical, "Error"
Resume ExitHere
End Function
附 件:
演 示:
相关其他示例:
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)