'============================'函數名稱： 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 StringOn Error GoTo ErrorHandlerDim objWMIService As ObjectDim objItems As ObjectDim objItem As ObjectDim 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 objItemsSelect Case IndexCase 0 'MAC地址strTemp = objItem.MACAddressCase 1 'IPV4地址strTemp = objItem.IPAddress(0)Case 2 'IPV6地址strTemp = objItem.IPAddress(1)End SelectIf GetNICInfo <> "" And strTemp <> "" Then GetNICInfo = GetNICInfo & DelimiterGetNICInfo = GetNICInfo & strTempNext ExitHere:Set objWMIService = NothingSet objItems = NothingSet objItem = NothingExit Function ErrorHandler:' MsgBox Err.Description, vbCritical, "Error"Resume ExitHereEnd Function

演 示：

源碼示例下載：

【access源碼】一個用于獲取網卡MAC地址或IP地址的通用函數\獲取本機内網IP的示例【Access軟件網】

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!