بإختصار شديد أنا تمكنت من إيجاد كلاً من رقم الهارد ديسك ، رقم اللوحة الأم ، رقم المعالج الدقيق !!!

حيث هذه الأرقام لا تتكرر من جهاز الي آخر ، وفي نفس الوقت هام جداً لزيادة تأمين برامجنا علي أجهزة العميل ( منعاً للنسخ الغير قانوني ) .

بس للأسف ، أنا كتبت الكود كلة بالفيجوال سكريبت VBS ، وللأسف حاولت أصنع الكود بإستخدام PL من داخل النموذج ، وللأسف لم أتمكن من ذلك ، حيث دائماً يعرض لي خطأ غير مفهوم (عفواً أنا ضعيف في الربط مع مكتبات DLL من خلال الديفيلوبار )!!!

عموماً إليكم الملف لحين إيجاد حل لهذه المشكلة ، ولعل وعسي أجد من يعلم الفكرة أكون شاكر جداً

وهذا هو الكود الذي لا يعمل لدي ، أتمني المساعدة فية :

DECLARE
R OLE2.OBJ_TYPE;
Y OLE2.OBJ_TYPE;
T OLE2.OBJ_TYPE;
LT OLE2.LIST_TYPE; 
BEGIN
-- R := OLE2.CREATE_OBJ('WbemScripting.SWbemServices');
R := OLE2.CREATE_OBJ('winmgmts://.');
 LT := OLE2.CREATE_ARGLIST;
 OLE2.ADD_ARG(LT,'SELECT * FROM Win32_PhysicalMedia');
Y := OLE2.INVOKE_OBJ(R,'ExecQuery',LT);
-- FOR I IN 1 .. Y.COUNT
END;

شكراً للجميع ،

GetSerials.zip

هل لم أحد يصل الي حل هذه المشكلة ؟؟؟


شكراً