لمعرفة حجم الذاكرة الحية الخاصة بكل Slot

كود :
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