[مبرمج مصرى]

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

أنا أحاول منذ فترة معرفة طريقة الحصول على رقم الهارد ديسك فى بيئة ويندوز7 بواسطة فيجوال بيسك 6 دون جدوى
الكود المستخدم بعد إضافة الأداة إلى المشروع هو

Private Sub Command1_Click()
Dim oHDD As Object
Set oHDD = CreateObject("HDSNLib.HDSN")
Text1.Text = oHDD.GetSerialNumber
Set oHDD = Nothing
End Sub


وقد قمت بتسجيل الأداة
hddsn.dll
فى
 d:\windows\system32
بعد أن فشل تسجيلها فى ال
c


فهل من مساعدة؟ وشكرا