قراءة رقم المازربورد في الاكس بي

[gs7581]

السلام عليكم

يوجد بالمنتدي منذ عدة سنوات موضوع عن قراءة رقم المازربورد

و كان يعمل فقط علي الويندوز 98

فهل هناك طريقة للقراءة علي ويندوز اكس بي

و كذلك قراءة رقم البروسيسور علي الاكس بي

اتمني الافادة من حضراتكم

و شكرا

[محب العلم]

السلام عليكم

الأخ الدكتور جابر المحترم ،

تفضل الكود لقراءة المازربورد

 

Private Sub cmd_Click()
Dim objs
Dim obj
Dim WMI
Dim strMBD

Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
  MsgBox "MotherBoard Number:  " & obj.SerialNumber
Next


End Sub

مع وافر الاحترام

[gs7581]

متشكر جدا اخي محب العلم

و جزاك الله خيرا

[gs7581]

[محب العلم]

حياك ألله أخي الدكتور جابر الشيمي ،

لم أستوعب معنى الابتسامة الأخيرة ... هل هي لرفع الموضوع

إن كانت كذلك أرجو منك توضيح المطلوب مجددا وماذا بشأن الكود السابق ؟

مع وافر الاحترام