تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة حجم الذاكرة الحية الخاصة بكل Slot
#1
كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله و بركاته
الكود يستعمل خدمات ال WMI

كود :
Private Sub ListPhysicalMemory(ByRef aArray() As Double)
On Local Error Resume Next
Dim sComputerName As String, i As Integer
sComputerName = Environ$("COMPUTERNAME")
i = 1

Dim WMI_Obj As Object, WMI_ObjProps As Object, ObjClsItem As Object
Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
Set WMI_ObjProps = WMI_Obj.ExecQuery("Select * from Win32_PhysicalMemory", , 48)


For Each ObjClsItem In WMI_ObjProps
ReDim Preserve aArray(i)
aArray(i) = ObjClsItem.Capacity
i = i + 1
Next ObjClsItem

aArray(i) = 0
For i = 1 To UBound(aArray)
aArray(0) = aArray(0) + aArray(i)
Next i

Set ObjClsItem = Nothing
Set WMI_ObjProps = Nothing
Set WMI_Obj = Nothing
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قراءة بيانات من الذاكرة RaggiTech 0 337 17-10-12, 02:51 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 354 17-10-12, 02:24 PM
آخر رد: RaggiTech
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 311 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 319 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 368 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 326 17-10-12, 02:21 PM
آخر رد: RaggiTech
  لاستغلالة النافذة About الخاصة بالويندوز في تطبيقاتنا RaggiTech 0 338 17-10-12, 02:19 PM
آخر رد: RaggiTech
  معرفة حجم الذاكرة المؤقتة Ram والمستخدم منها RaggiTech 0 403 17-10-12, 01:06 AM
آخر رد: RaggiTech
  مجموعة من الاكواد الخاصة بالتعامل مع ال CD-Rom RaggiTech 0 475 17-10-12, 01:03 AM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 312 17-10-12, 01:02 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم