خطأ فى معادلة استخراج سيريال الهارد

[إبراهيم ابوليله]

الاخوه الافاضل

لدى هذه المعادله

والخاصه باستخراج سيريال الهارد

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

الخطأ يحدث على بعض الاجهزه

ويقف عند السطر

ReDim SNList(1 To Count, 1 To 1)

 

ارجو المساعده

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

أخي الحبيب إبراهيم

هل لديك أكثر من هارد على الجهاز الذي تحدث فيه المشكلة ؟

إذا كان الأمر كذلك جرب أن تعامل المعادلة كمعادلة صفيف ...

أو جرب تفعيل هذه المكتبات من قائمة Tools في محرر الأكواد

أو جرب هذه الدالة بدلا من الدالة المرفقة في مشاركتك

Function HdNum() As String
    Dim fsObj   As Object
    Dim drv     As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")
    HdNum = Hex(drv.SerialNumber)
End Function

تم تعديل فبراير 5, 2015 بواسطه YasserKhalil

[ناصر سعيد]

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

وتعمل لها رقم السريال وتحتكرهذا التجميع لنفسك او للبيع  ..يجعله عامر يارب

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

الأخ ناصر

هو فين ؟ هو مين ؟ هو إزاي ؟ هو ايه ده !!!!!!!!!!

أقطع دراعي إذا كنت فاهم كلامك .هل الكلام يخص الموضوع ؟ ولمين موجه الكلا (الكلام يعني !!) ..

ولا إنت تقصد تهزر :eek2:

[عبدالباري البنا]

اخى العزيز .... ده ملف كنت استخدمه فى ملفاتى 

وهو ربط البرنامج بسريال الهارد 

الرقم السرى 1234

سيريال الهارد.rar

تم تعديل فبراير 5, 2015 بواسطه عبدالباري البنا

[إبراهيم ابوليله]

اخى ياسر

ستم تجربه فكره الاضافه من

tools

على الجهاز الذى يحدث به الخطأ