【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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)