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

[ابن بنها]

استاذ يوسف

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

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

 

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

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

[الـعيدروس]

" Alt "  +  F8

وشغل الكود

بيظهر في رسالة 

[محمد الشابورى]

بمراجعة موقع ميكروسوفت

http://msdn.microsoft.com/en-us/library/aa394132%28v=vs.85%29.aspx

 

نجد أن الدالة

Win32_DiskDrive.SerialNumber لا تعمل فى ويندوز xp نهائيا

و بديلها هو

Win32_PhysicalMedia.SerialNumber

التى تعمل فى ويندوز xp و لا تعمل فى سفن

تم تعديل فبراير 20, 2014 بواسطه محمد الشابورى

[محمد الشابورى]

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

شكرا لكم

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

أخى الأستاذ دغيدى

ثق تماما أنه رقم الهارد الثابت

لاثلاثة أسباب

الأول أن صيغة الرقم المتغير و الذى يسمى

volum number

يكون مثل هذا 64F9-D5EC

و يمكنك معرفته عن طريق محث الأوامر ثم كتابة

vol c:

و طبعا يمكنك تغيير

c

لأى حرف

السبب الثانى

أنه يمكنك بسهولة فك براغى الكمبيوتر و إمساك الهارد بيديك لتجد أن الرقم الذى ذكرته WD-WCANKA323797

هو نفس الرقم المكتوب على ملصق الهارد ديسك

و الرقم على هذه الصيغة 100% هو رقم ثابت بلا أدنى شك

السبب الثالث

كلا الدالتين

Win32_DiskDrive.SerialNumber

و

Win32_PhysicalMedia.SerialNumber

لا تحضران إلا رقم الهارد الثابت فقط لا غير

جرب المرفق

تقبل تحياتى

vol.rar

تم تعديل فبراير 20, 2014 بواسطه محمد الشابورى