دالة تخص اسم الحاسوب او كرت الشبكة

نعم يوجد انا حتي الان لم افكر في اي شيء مجرد تفكير ولم اجدة في الفوكس برو الذي بيني و بينة عشق كبير :)

برجاء مراجعة المرفقات

بمناسبة مشاركتي هذة بعد فترة انقطاع طويلة ارسل تحياتي الي اخي العزيز Lion Iraq الذي اطلق علي لقب Persistent Fox 

وهو اللقب الذي اعتز بة كثيرا.

form.rar

اهلا وسهلا بك من جديد Persistent Fox

وشكرا على المتابعة

اخي العزيز كاتب الموضوع

قبل كل شي تاكد هنالك العديد من الطرق لغاية واحدة

والاخ المبدع دائما استخدم  دالة النظام للاسم واستخدم وظائف الوندوز لكرتت الشبكة

واليك الطريقة الثانية وكثيرا ما استخدمها لاكثر من غاية وهي

CLEAR 
LOCAL cMACAddress,lion, iraq, lioniraq
lion = GETOBJECT("winmgmts:\\." + "\root\cimv2")
iraq = lion.ExecQuery("Select * from Win32_NetworkAdapter",,48)
FOR EACH lioniraq IN iraq
    cMACAddress = lioniraq.MACAddress
    IF (cMACAddress)#".null."
        ? "MAC Address: " + lioniraq.MACAddress
    ENDIF
ENDFOR

وتحياتي للجميع

شكرا لكم على هذه المعلومات القيمة

الشكر لله

السلام عليكم

شكرا جزيلا معلومات رائعة و طرح اروع

شكرا للجميع