(فائدة) الرقم الفعلي لمحرك الأقراص ... Manufacturer Physical Number

[أبو آدم]

إخوتي الفضلاء

أنت تسأل ونحن نجيب ...

للتعرف على الرقم الفعلي للصانع والذي خصص لمحرك الأقراص على جهازك ، وليس ذاك المؤقت الذي يتغير عند إعادة تنصيب الويندوز

إستخدم الكود التالي :

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_DiskDrive", , 48)

For Each objItem In colItems

If objItem.DeviceID = "\\.\PHYSICALDRIVE0" Then

   Me.Text0 = objItem.SerialNumber

End If

Next

وهنا وعلى غير ما اعتاد أهل اللصق والنسخ ،

فإننا سنستخدم ما يلزمنا لا ما قدم لنا ، حيث سنطلب التعامل مع PHYSICALDRIVE0

وهو يمثل دائماً (فيما أعلم ) محرك الأقراص الرئيسي ، وبذلك نبتعد عن ما حوله من الأقراص المتحركة أو محرك الأقراص الثانوي .

وكل يستخدم نطاق الكود كما يشاء ...

والله من وراء القصد وهو حسبي

...................... ...............

................................................

[محمد ايمن]

بارك الله فيك استاذنا الفاضل و جزاك الله كل خير

[ahmad.saeed.mh]

اخي الفاضل عند التنفيذ يظهر لي هذا الخطأ

Object doesn't support this property or method

عند السطر:

Me.Text0 = objItem.SerialNumber

[أبو آدم]

أخي العزيز

هنا افترضت وجود مربع نص في النموذج باسم Text0 لإظهار الرقم

............

[الصمت المتحدث]

بارك الله فيك أخي الفاضل على حسن الاجابة ..

العدد المحصل عليه كبير جدا يتكون من 40 رقم تقريبا

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

لكن الناتج جاء مخالفا لما هو محصل عليه بعد تطبيق ما أوردته هنا

اليك مرفق الأخ أيمن

GetHardSerial2.rar

[أبو آدم]

لم افهم قصة 40 رقم

زودني بصورة ...

التطبيق المرفق للأخ محمد لم يعمل لدي كما في الصورة

............

[الصمت المتحدث]

إليك القصة أخي نارت ..

[أبو آدم]

أخي العزيز

إليك مثال لما يفترض ...

...........................

..

[الصمت المتحدث]

أحسن الله إليك أخي الطيب ..

المفروض كما تفضلت أن يكون الرقم على تلك الصيغة

لكن السؤال المطروح هل كل الأٌقراص الصلبة لها نفس الصيغة ؟

فعلى ما أظن بمجرد ما يختلف المصنع أو الماركة تختلف صيغة الرقم

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

وشكرا ....

[محمد ايمن]

الاخوة الاكارم

كلا المرفقين يستخرجان الرقم التسلسلي الاصلي للهارد و لكن هل تعلمون انه يوجد رقمان و ليس رقم واحد !!!!!

اللوحة الام و المعالج و الفلاشة لديهم رقم تسلسلي مصنعي واحد اما الهارد لديه رقمان ( هذا ما قيل لي )

المرفق الذي يتحدث عنه اخينا الصمت المتحدث يستخرج ما يسمى ( HDD SATA - Serial Number )

و مرفق استاذنا ابو آدم يستخرج ما يسمى ( HDD Serial Number )

المميز في كلا الرقمين انهما غير قابلين للتغيير عند اجراء فورمات على عكس رقم البارتشن الذي يتغير عند كل فورمات

[الصمت المتحدث]

تشكر أخي محمد ..

أفدتنا جزاك الله كل خير

ما دام الرقم لايتغير هذا هو الأهم سواء كان للهارد رقم أم رقمين

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

هل رقم لوحة الأم ورقم المعالج يتغير ويتأثر بالفورمات أم أنه ثابت ؟

وشكرا ...

[محمد ايمن]

هل رقم لوحة الأم ورقم المعالج يتغير ويتأثر بالفورمات أم أنه ثابت ؟

هذه الارقام ثابتة و لا تتغير

[الصمت المتحدث]

بارك الله فيك أخي ..

[عبدالله المجرب]

السلام عليكم

بكود الاستاذ نارت

ظهر لدي 40 رقم ايضاً لماذا

[الصمت المتحدث]

الاخوة الاكارم

كلا المرفقين يستخرجان الرقم التسلسلي الاصلي للهارد و لكن هل تعلمون انه يوجد رقمان و ليس رقم واحد !!!!!

اللوحة الام و المعالج و الفلاشة لديهم رقم تسلسلي مصنعي واحد اما الهارد لديه رقمان ( هذا ما قيل لي )

المرفق الذي يتحدث عنه اخينا الصمت المتحدث يستخرج ما يسمى ( HDD SATA - Serial Number )

و مرفق استاذنا ابو آدم يستخرج ما يسمى ( HDD Serial Number )

المميز في كلا الرقمين انهما غير قابلين للتغيير عند اجراء فورمات على عكس رقم البارتشن الذي يتغير عند كل فورمات

أظن هذا ما يفسر الأمر

والله أعلم ..