الخميس، 15 يونيو 2017

معرفة الرقم التسلسلى للهارد ديسك hard disck serial فى الفيجوال بيسك دوت نت


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

 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




ليست هناك تعليقات:

اضافة تعليق

جميع الحقوق محفوظة © 2019 الحقيبة البرمجية لمبرمجى VB.NET