نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: مک ادرس

  1. #1


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    مک ادرس

    سلام. وقت بخیر.
    چطور میشه به مک ادرس سیستم از طریق اکسل دسترسی پیدا کرد؟ (یعنی مثل تابع now() که تایم رو از روی سیستم موردنظر برمیداره)
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    سلام دوست عزیز
    یک کد در یک سایت پیدا کردم. تست کردم جواب میده.
    کد:
    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
    دقت کنید که این کد بصورت فانکشن هست

    لینک منبع:
    Get mac address from PC using Excel VBA

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    سلام دست شما درد نکنه
    این آدرس فیزیکی چه کاربردهای در اکسل میتونه داشته باشه ؟

  6. #4


    آخرین بازدید
    18 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط sabertb نمایش پست ها
    سلام دست شما درد نکنه
    این آدرس فیزیکی چه کاربردهای در اکسل میتونه داشته باشه ؟
    سلام
    میشه ازش به عنوان یک مرحله امنیتی استفاده کرد. که فایل در هر سیستمی باز نشه. البته شاید کاربر عزیز مقصود دیگه ای داشتن

  7. سپاس ها (2)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است