[arbtech]

الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك 

("Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia

       ()For Each dvs As ManagementObject In hd.Get

           ()Dim serial As String = dvs("SerialNumber").ToString

           TextBox1.Text = serial

       Next

ملاحظات 

1- يعمل الكود فى حالة وجود هارد واحد فقط للجهاز

2- يجب اضافة مكتبة systeme.managament عن طريق add reference

تحميل المشروع

[Ratchinko]

الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك 

("Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia

       ()For Each dvs As ManagementObject In hd.Get

           ()Dim serial As String = dvs("SerialNumber").ToString

           TextBox1.Text = serial

       Next

ملاحظات 

1- يعمل الكود فى حالة وجود هارد واحد فقط للجهاز

2- يجب اضافة مكتبة systeme.managament عن طريق add reference

تحميل المشروع

شكرا اخى الكريم على الموضوع

تم وضع المشروع فى المرفقات للتيسير على الإخوة لان موقع الرفع يطلب الانتظار و التاكيد