الكود التالى يستخدم لجلب الرقم التسلسلى للهارد ديسك
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
ليست هناك تعليقات:
اضافة تعليق