[عبد الله]

cvcvcv كتب :ممكن تبعت الكود بتاع الهارد والبروسيسور .. وشكرا

أخي هذا الكود الذي استعمله في الحصول على معلومات للجهاز

كود :

Dim oqj As ObjectQuery = New ObjectQuery("SELECT * FROM Win32_Processor  ")
        Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(mss, oqj)
        Dim queryCollection As ManagementObjectCollection = mos.Get
        For Each getnow As ManagementObject In queryCollection
            MsgBox(getnow.GetText(TextFormat.Mof))
        Next

فقط تستطيع تغيير الكلمة Win32_Processor بأحد هذه الكلمات الموجودة على الرابط التالي:
http://msdn.microsoft.com/en-us/library/...s.85).aspx

ومنها تستطيع استخراج الكثير والكثير من المعلومات ، طبعاً اذا أردت اسنادها لمتغير فقط اكتب الجملة هذه في الحلقة for
الشفرة هي :

كود :

Label19.Text = getnow("name")

منتظر جواب لأهمية الموضوع لدي ، بارك الله في الجميع.