احتاج كود لمعرفة سيريال الاسطوانة الجديدة

[waledstar2006]

اخوانى احتاج الى كود فيجوال لمعرفة الاسطوانة الجديد انا وصلت لكود لمعرفة سيريال الاسطوانة ولكن فى حالة وجود بيانات عليها لكن لا يعمل لو الاسطوانة الجديدة
اتمنى ان اجد الرد
اخوكم وليد

[pheonix2500]

السلام عليكم ورحمة الله وبركاته.

إذا كنت تستخدم تقنية .net فتستطيع معرفة أي معلومات عن أي قرص باستخدام الكود
Dim X as DriveInfo
الآن تستطيع تحديد المسار وجلب المعلومات التي تحتاج إليه.

بالتوفيق .

[waledstar2006]

اولا شكرا اخى الغالى على الرد
انا لست متعمق فى البرمجة ولكنى استخدم فيجوال 6
وقد توصلت لكود لمعرفة سيريال الاسطوانة فى حالة وجود بيانات عليها
وهذا هو الكود
Private Sub Form_Load()
Dim obj_FSO As Object, obj_Drive As Object
Set obj_FSO = CreateObject("******ing.FileSystemObject")
Set obj_Drive = obj_FSO.GetDrive("f:\")
Text2 = obj_Drive.SerialNumber
End Sub
انا كنت بحاول اوصل لطريقة فى حماية الاسطوانة من النسخ عن طريق السيريال ولكن المشكله ان السيريال يتغير بمجرد تخزين بيانات على الاسطوانة
ولم اتوصل لمعرفة السيريال فى حالة لو الاسطوانة جديد
اتمنى اذا كان لديك فكرة فى هذه الحماية ان تخبرنى بها
وجزاك الله كل خير