اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 3 weeks later...

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

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

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

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

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

والكود به Win32_PhysicalMedia

رابط هذا التعليق
شارك

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

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

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

post-27378-0-36423000-1351599971_thumb.j

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...

استاذ يوسف

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


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

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

تم تعديل بواسطه ابن بنها
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information