سريال الهرد الذى لا يتغير

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

هذا العمل مع اعمال الاستاذ ابو تامر

http://www.officena.net/ib/index.php?showtopic=28561&hl=%D8%B3%D8%B1%D9%8A%D8%A7%D9%84&fromsearch=1

ولكن عند استخدمه مع مويندوز 7 و افس 2007

لا يعمل نهائيا لا يعطى اى رقم للهرد

برجاء من الاستاذ ابو تامر تعديل الكود مع ويندز 7 و اوفس 2007

ولكم جزيل الشكر

[عبدالله المجرب]

جرب هذا الرابط

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

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

استاذ عبد الله

شكراً على سرعة الرد و ملف ممتاز

ولكن الملف يعمل على ال Access

فهل ممكن نحول الكود الى اكسل وكيف

جزاك الله خيراً

[عبدالله المجرب]

السلام عليكم

اخي المهم هو الحصول على هذا الرقم

[الـعيدروس]

هذا كود الاستاذ محمد صالح

E = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").serialnumber

MsgBox E

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

الاساتذة الخبراء

فكرة الاستاذ ابو تامر هى استخراج السريال الهارد الثابت وليس سريال البرتشن

لكى يتم ربط الامان للملف برقم الهارد

فهل ممكن تطبيق فكرة ملف الاكسس فى الاكسل

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

للرفع