+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] معرفة الرقم التسلسلى للهارد ديسك hard disck serial (/showthread.php?tid=20768)
معرفة الرقم التسلسلى للهارد ديسك hard disck serial - arbtech - 17-06-17
الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك
("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تحميل المشروع
RE: معرفة الرقم التسلسلى للهارد ديسك hard disck serial - Ratchinko - 18-06-17
(17-06-17, 05:06 PM)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
تحميل المشروع
شكرا اخى الكريم على الموضوع
تم وضع المشروع فى المرفقات للتيسير على الإخوة لان موقع الرفع يطلب الانتظار و التاكيد