|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Public Function GetNetworkConnectionMACAddress() As String
' Return the currently used network adapter's MAC address
' Syntax
' GetNetworkConnectionMACAddress()
Dim oWMIService As Object
Dim vAdapters As Variant
Dim oAdapter As Object
Dim lIndex As Long
Dim lMatchIndex As Long
Dim vResult As Variant
' Adapters are pulled from the Windows Management Instrumentation database
' The currently used adapter has a MAC address and an IP address that is not 0.0.0.0
Set oWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set vAdapters = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oAdapter In vAdapters
If Not IsNull(oAdapter.MACAddress) And IsArray(oAdapter.IPAddress) Then
lMatchIndex = -1
For lIndex = 0 To UBound(oAdapter.IPAddress)
If Not oAdapter.IPAddress(lIndex) = "0.0.0.0" Then
lMatchIndex = lIndex
Exit For
End If
Next lIndex
If Not lMatchIndex < 0 Then
GetNetworkConnectionMACAddress = oAdapter.MACAddress
End If
End If
Next
End Function
کامنت