استغلال Sript VBS في الدلفي لاستخراج الرقم التسلسلي للقرص

[kachwahed]

وجدت ما كنت أبحث عنه:
WMI أو ما يعرف بـ Windows Management Instrumentation هي إضافة من Microsoft تسمح بالتعرف على المعلومات الإدارية للحاسب وأدواة النظام...للمزيد wikipedia

الكود VBScript الذي طرحته سابقا يستعمل استعلام SQL للحصول على المعلومات بهذه التقنية، ويمكن تغيير الاستعلام :

كود :

Select * from Win32_DiskDrive where caption like '%USB%'

إلى:

كود :

Select * from Win32_DiskDrive

للحصول على جميع الأقراص في الجهاز، كما يمكن عرض معلومات أخرى للقرص على غرار caption (أو DeviceID) و Signature (وهذا بيت القصيد، وليس الرقم التسلسلي في الحقيقة) مثل: Model، Description، TotalSectors... وغيرها فيصبح الكود كما يلي:

كود :

On Error Resume Next MyComputer = "." Set obj = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & MyComputer & "\root\cimv2") Set columns = obj.ExecQuery("Select * from Win32_DiskDrive") For Each item in columns Wscript.Echo "DeviceID: " & Item.DeviceID Wscript.Echo "Model: " & Item.Model Wscript.Echo "Description: " & Item.Description Wscript.Echo "Size: " & Item.size Wscript.Echo "Partitions: " & Item.Partitions Wscript.Echo "Manufacturer: " & Item.Manufacturer Wscript.Echo "TotalCylinders: " & Item.TotalCylinders Wscript.Echo "TotalSectors: " & Item.TotalSectors Wscript.Echo "TotalTracks: " & Item.TotalTracks Wscript.Echo "SectorsPerTrack: " & Item.SectorsPerTrack Next

وكما حصلنا على بيانات القرص بنفس الطريقة يمكن الحصول على معلومات أخرى حول النظام: Process و Registry وغير ذلك...

المكونات التجارية WmiSet Component Collection For Delphi, C++Builder مخصصة لمثل هذا الغرض، للتحكم في النظام والشبكة و...
الموقع:

كود :

http://www.online-admin.com/wmiset.html

وفي المرفقات نسخة كاملة للمكونات مع الأمثلة، وملف تطبيقي كمثال.
بارك الله في الأستاذ DeltaAziz وشكرا لكم جميعا.