استخراج سريال الهارد الحقيقيى

[خالد الشاعر]

السادة الخبراء

مرفق ملف استخراج السريال نبر للهارد الحقيقيى عن طريق معادلة

مرفوع من النت

للاستفادة للجميع

GetPhysical.rar

[عبدالله باقشير]

السلام عليكم

عندي تطلع خطا

هل عندك تطلع خطا؟؟؟

[خالد الشاعر]

استاذى عبد الله باقشير

يسعدني وجدك و يشرفنى

المعادلة عندى سليمة تعطى رقم الهارد

[الـعيدروس]

السلام عليكم

عندي تظهر خطأ

الويندوز عندي Windows 7

تم تعديل أكتوبر 9, 2012 بواسطه دغيدى

[يوسف عطا]

رجاء الإفادة عن نفس الموضوع بخصوص ويندوز 7

[عبدالله باقشير]

ويسعدني ايضا

قد يختلف استخدامها من جهاز وآخر

والله اعلم

[saad abed]

اخوانى

المعادلة تقرأ بطريقة صحيحة

اعمل على ويندز 7

[sami salem]

بارك الله فيك والمعادلة تعمل عندي على ويندوز 7 واكسل 2007 والشكر لكل من ساهم فى هذا العمل

[يوسف عطا]

يظهر لى رسالة الإرور دى

Uploaded with ImageShack.us

تم تعديل أكتوبر 30, 2012 بواسطه دغيدى

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

قمت بتجربة الملف على اوفيس 2003 و وندوز XP لكن يظهر خطأ

تم تعديل أكتوبر 9, 2012 بواسطه دغيدى

[خالد الشاعر]

اعتقد ان المشكلة مع اوفس 2003 و المعادلة

الذى عندة هذه المشكلة يحمل الملف التحويل الخاص ب 2007

انا عندى اوفس 2003 و الملف التحويل ل 2007 ولا يوجد مشكلة

مرفق رابط الملف للتجربة و اخبارنا بالناتج

http://www.4shared.com/rar/91NqGVIA/FileFormatConverters.html

[أبو ردينة]

ماشاء الله تبارك الله

اشتغلت عندي تمام على ويندوز 7 - أوفيس 2010 عربي

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

ملحوظة لأساتذتنا الكرام

نأمل التكرم بشرح ما هو جديد بهذا الكود و لكم الفضل بعد الله عز و جل

مثلا صادفت هنا ReDim و هي من الأشياء الجديدة علي

[أم عبد الله]

جميل جداً واشتغل الكود وأعطاني رقم الهارد. بارك الله فيكم وزادكم علما.

[دغيدى]

الأخـــــــوة الأفـــــــاضل

===============================

سلام الله عليكم وكل عــــام وحضراتكم بخير

الكود أعطانى هذا الرقم WD-WCANKA323797

علما أن الجهاز به ووندوز 8 وأوفيس 2013 والنظام bit 64

والكود به Win32_PhysicalMedia

[يوسف عطا]

أخى دغيدى

أعمل كذلك على ويندوز 8 حالياً

وأوفيس 2003 و 2010 وكلاهما عربى

ولكنها تعطى خطأ

ماذا أفعل

[يوسف عطا]

بعد عدة تجارب أعطانى هذا الرقم

هل هذا هو رقم الهارد

وكيف أتأكد من الرقم ؟؟

WD-WMAVU2718655

[يوسف عطا]

إخوتى الأعزاء

يجب عمل التالى

1. نسخ الكود المرفق فى موديول

Function GetPhysicalSerial() As Variant

Dim obj As Object

Dim WMI As Object

Dim SNList() As String, i As Long, Count As Long

Set WMI = GetObject("WinMgmts:")

For Each obj In WMI.InstancesOf("Win32_PhysicalMedia")

If obj.SerialNumber <> "" Then Count = Count + 1

Next

ReDim SNList(1 To Count, 1 To 1)

i = 1

For Each obj In WMI.InstancesOf("Win32_PhysicalMedia")

SNList(i, 1) = obj.SerialNumber

i = i + 1

If i > Count Then Exit For

Next

GetPhysicalSerial = SNList

End Function

2. كتابة المعادلة التالية فى الخلية المراد إظهار رقم الهارد ديسك فيها

=GetPhysicalSerial()

ستجد رقم الهارد ديسك فى كل خلية تكتب فيها هذه المعادلة

والسؤال الآن

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

يجب أن يقوم أحد بتجربة الكود والإحتفاظ بالرقم ثم مقارنته بعد الفورمات

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

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

لكم تحياتى

[حامد يونس]

استاذ يوسف

جرب هذا الكود و ابلغني باالنتيجة

Sub test()

Dim s As String

With GetObject("winmgmts:\\.\root\CIMV2")

  For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)

    s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf

    s = s & "Model: " & itm.Model

  Next itm

End With

MsgBox s

End Sub

[دغيدى]

أحى الكريم / حامد يونس

ظهرت لى هذه الرسالة

نفس الرقم فى المشاركات السابقةعلما أن الاعدادات 64bit

تم تعديل أكتوبر 30, 2012 بواسطه دغيدى

[حامد يونس]

الاستاذ دغيدي ما المشكلة اذن

[دغيدى]

أحى الكريم / حامد يونس

شكرا لكم

نريد التأكيد قبل وبعد الفورمات

[يوسف عطا]

بالفعل إستخرج الكود الأخير نفس رقم الكود السابق

وليس فقط سيريال الهارد بل ايضاً سعته وموديله ونوع كابل الربط مع البوردة

مشكور حامد بك يونس

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

فالرجاء من سيادتكم ضم هذا الموضوع مع ذلك

ومرفق لينك الموضوع الآخر ليكون الموضوع متكامل

http://www.officena.net/ib/index.php?showtopic=43800

وسواء دمج هذا بذال أو ذاك بهذا فالأمر سيان خاصة وأن معظم الردود بالموضوعين لنفس الأعضاء

[Akram Galal]

السادة الأفاضل

أريد أن يظهر السريال في textbox

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

[ابن بنها]

استاذ يوسف

جرب هذا الكود و ابلغني باالنتيجة

Sub test()

Dim s As String

With GetObject("winmgmts:\\.\root\CIMV2")

For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)

s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf

s = s & "Model: " & itm.Model

Next itm

End With

MsgBox s

End Sub

نسخته في موديول ماذا افعل بعد ذلك حتى يظهر السريال

تم تعديل يناير 19, 2013 بواسطه ابن بنها

[ابن بنها]

للرفع