11-06-2009, 01:06 PM
بار ك الله فيك أستاذ، جزاك الله كل خير
... فعلا ليس الهدف تفيذ VBS بقدر ما هو الحصول على الرقم التسلسلي، لكني جربت مكونات MiTeC System Information Component Suite ومكونات أخرى عديدة من هذا النوع وكلها لم لم تف بالغرض، سألت أحد الخبراء فدلني على هذا السكريبت، وسألت Marco Cantu فأجابني:
سأبحث عن دالة API هذه التي تحدث عنها، إبحثوا معي لنستفيد جميعا
... فعلا ليس الهدف تفيذ VBS بقدر ما هو الحصول على الرقم التسلسلي، لكني جربت مكونات MiTeC System Information Component Suite ومكونات أخرى عديدة من هذا النوع وكلها لم لم تف بالغرض، سألت أحد الخبراء فدلني على هذا السكريبت، وسألت Marco Cantu فأجابني:
إقتباس :> 1- Is there any way to get the the Physic Serial Number for USB Disk in
> Delphi ???
I guess there is probably a Windows APi or registry lookup for that,
but I have no information.
> 2- Who can i use above VBScript and retrive the value of "Item.signature" to
> store it in varibale String ?
That code is hard to read for me... I think it uses an external component.
--
----
Marco Cantù, author Delphi 2009 Handbook
سأبحث عن دالة API هذه التي تحدث عنها، إبحثوا معي لنستفيد جميعا