تقييم الموضوع :
  • 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
}}}
تم الشكر بواسطة:



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


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