17-06-17, 05:06 PM
الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك
("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تحميل المشروع