04-06-2009, 11:11 AM
السلام عليكم
كنت فيما سبق سألت عن ذلك فأجابني MjIrIm بارك الله فيه لكن لم يكن ذلك ما كنت أبحث عنه...
http://www.delphi4arab.net/forum/showthr...p?tid=1171
الذي أبحث عنه هو استخراج الرقم الفيزيائي (الثابت) وليس المنطقي (المتغير) وقد قدم لي أحدهم الطريقة لذلك عن طريق Script VBS والكود هو التالي:
طريقة الاستخدام: أكتب الكود في ملف TXT واحفظه بامتداد VBS وقم بتشغيله (لا تشخى شيئا لا علاقة لهذا بالفايروسات حتى وإن قال ذلك بعض المضادات الحساسة 
)
السؤال:
كيف السبيل الى استغلال هذا Sript في الدلفي واستخراج القيمة Item.signature (السطر الأخير للسكريبت) ؟
شكرا كثيرا.
كنت فيما سبق سألت عن ذلك فأجابني MjIrIm بارك الله فيه لكن لم يكن ذلك ما كنت أبحث عنه...
http://www.delphi4arab.net/forum/showthr...p?tid=1171
الذي أبحث عنه هو استخراج الرقم الفيزيائي (الثابت) وليس المنطقي (المتغير) وقد قدم لي أحدهم الطريقة لذلك عن طريق Script VBS والكود هو التالي:
كود :
On Error Resume Next
MyComputer = "."
Set obj = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & MyComputer & "\root\cimv2")
Set columns = obj.ExecQuery("Select * from Win32_DiskDrive where caption like '%USB%'")
For Each item in columns
Wscript.Echo "Caption: " & Item.Caption
Wscript.Echo "Signature: " & Item.signature
Next)السؤال:
كيف السبيل الى استغلال هذا Sript في الدلفي واستخراج القيمة Item.signature (السطر الأخير للسكريبت) ؟
شكرا كثيرا.