حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

إخواني واحبابي في الله

منذ ما يقرب من الستة أشهر وأنا أبحث عن كود أو دالة لايجاد الرقم التسلسلي للوحة الأم ، حيث يمكن استخدام الرقم التسلسلي لربطه بالمصنف كنوع من أنواع الحماية ... بحثت كثيراً وتجولت كثيراً ولم أيأس إلى أن وفقني الله عزوجل للحصول على دالة معرفة بعد معاناة كبيرة جداً في البحث ..

وها أنا أقدمها لكم على طبق من ذهب ..

ها هي الدالة المعرفة

Function MBSerialNumber(Optional strComputer As String = ".") As String
    Dim V, vName, vUUID
    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = V.Name
            vUUID = V.UUID
        Next V
    End With
    MBSerialNumber = vName & ", " & vUUID
End Function

ويمكن استخدامها من خلال ورقة العمل أو من خلال إجراء فرعي آخر

بالنسبة لورقة العمل في أي خلية ضع المعادلة التالية

=MBSerialNumber()

وأخيراً إليكم الملف المرفق .. (يمكنك عدم التحميل ونسخ الدالة المقدمة ووضعها في موديول ... ولكن إذا أعجبك الموضوع فلا تبخل بالتحميل ، ولن يكلفك التحميل سوى دقيقتين فقط .. ولا تنسى أنني ظللت أبحث لمدة ستة أشهر)

حمل الملف من هنا

تقبلوا وافر تقديري واحترامي

[أبوعيد]

شكرا أستاذ ياسر خليل

ماشاء الله , اللهم زد وبارك 

فعلا , يمكن ربطها بالمصنف كنوع من الحماية

وهذه النتيجة التي حصلت عليها بعد تطبيق الدالة :

Latitude D620                   , 4C4C4544-0038-4710-8058-B7Y0433334A

وقد لفت انتباهي في الكود كلمة UUID

وهي اختصار لكلمة   Universal Unique Identifier المعرف الفريد العالمي

والذي يهدف إلى أعطاء رقم خاص (كالمبين أعلاه) لكل جهاز من أجهزة الحاسوب حول العالم مهما اختلفت الشركات المصنعة لها

مريدا من المعلومات على الرابط الآتي  :

https://en.wikipedia.org/wiki/Universally_unique_identifier 

تم تعديل أبريل 5, 2016 بواسطه أبوعيد

[عبدالله فاروق ابو ريان]

استاذي ياسر خليل دائما تبهرنا بكل جديد

[محي الدين ابو البشر]

السلام عليكم

بارك الله بك وجزالك كل خير وأنالك ثواب كل ساعة أو دقيقة عن الستة أشهر حسنة في ميزان أعمالك

 

[ياسر خليل أبو البراء]

أخي الحبيب أبو عيد

شرفني مرورك العطر بالموضوع وإن شاء الله يضاف الموضوع لموضوعات الطريق للحماية .. والتي يعاني منها الكثيرون

أخي العزيز عبد الله فاروف

بارك الله فيك ومشكور على كلماتك الطيبة

أخي الغالي محي الدين

وعليكم السلام ..وجزيت خيراً بمثل ما دعوت لي وزيادة

تقبلوا جميعاً وافر تقديري واحترامي

[أبو حنــــين]

جزاك الله خيرا

تقبل تحياتي و تقديري

[ياسر خليل أبو البراء]

وجزيت خيراً أخونا في الله اللي مش عايز يقولنا على اسمه ..

بارك الله فيك ، ومشكور على مرورك العطر بالموضوع

تقبل تحياتي

[أبوبسمله]

جزاك الله خيرا ابو البراء

طب والهارددسك هل فى كود له للاستخدام فى الحمايه برضه

تقبل تحياتى وتقديرى ياغالى

[ياسر خليل أبو البراء]

نعم أخي الحبيب أحمد يوجد دالة لمعرفة السيريال الخاص بالهارد ديسك وفي هذه الحالة لو بحثت ستجد الكثير من الحلول المقدمة

أما السيريال الخاص باللوحة الأم فكان هو المشكلة ..

تقبل تحياتي

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

هديّة رائعة و موضوع غاية في الأهميّة

بارك الله فيك و جزاك خير الجزاء و زادك من علمه و فضله

أحيّي فيك عدم الانهزامية و اليأس

أدعو الله أن يفتح أمامك كل أبواب الخير و يرزقك من حيث لا تحتسب

فائق إحتراماتي

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته

أخي العزيز عبد العزيز ...بارك الله فيك وجزاك الله خيراً

شرفني مرورك العطر بالموضوع وبارك الله فيك على دعواتك الطيبة المباركة .. وإن شاء الله لك بمثلها وزيادة

تقبل وافر تقديري واحترامي

[جلال الجمال_ابو أدهم]

ما شاء الله عليك 
احلى حاجه انك بتجيب التايهه

[ياسر خليل أبو البراء]

بارك الله فيك وجزاك الله خيراً أخي العزيز جلال الجمال

مرورك بالموضوع شرف لي ..

تقبل وافر تقديري واحترامي