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

'Exemple d'appel :
'        Dim ColResult As Collection = ListPhysicalMemory()
'        For i As Integer = 1 To ColResult.Count
'            Console.WriteLine("Slot " & i & " ---> " & ColResult.Item(i) & " Octets")
'        Next

'Function :
    Private Function ListPhysicalMemory() As Collection
        Dim Resultat As New Collection
        Dim myScop As New Management.ManagementScope("\\" & Environment.MachineName & "\root\cimv2")
        Dim oQuer As New Management.SelectQuery("SELECT * FROM Win32_PhysicalMemory")
        Dim oResult As New Management.ManagementObjectSearcher(myScop, oQuer)
        Dim oIte As Management.ManagementObject
        Dim oPropert As Management.PropertyData
        Dim StrFinal As String = Nothing
        Dim Idx As Integer = 0
        Try
            Resultat.Clear()
            For Each oIte In oResult.Get()
                For Each oPropert In oIte.Properties
                    StrFinal &= oPropert.Name & " ---> "
                    If Not oPropert.Value Is Nothing Then StrFinal &= oPropert.Value
                    StrFinal &= vbCrLf
                    If Not oPropert.Value Is Nothing AndAlso oPropert.Name = "Capacity" Then
                        Dim Valeur As String = oPropert.Value
                        Resultat.Add(oPropert.Value, "Slot " & Idx)
                    End If
                Next
                Idx += 1
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, _
            MessageBoxIcon.Error)
        End Try
        My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\IRam.txt", _
        StrFinal, False, System.Text.Encoding.Default)
        Process.Start(My.Computer.FileSystem.SpecialDirectories.Temp & "\IRam.txt")
        Return Resultat
    End Function

public static string[] ListPhysicalMemory() 
{
     ManagementScope mscope = new ManagementScope(string.Format(@"\\{0}\root\cimv2", Environment.MachineName)); 
     ManagementObjectSearcher mos = new ManagementObjectSearcher(mscope, new ObjectQuery("SELECT * FROM Win32_PhysicalMemory"));

     StringBuilder szb = new StringBuilder();
     foreach (ManagementObject mo in mos.Get())
          szb.AppendFormat(@"{0}:{1};", mo.Properties["BankLabel"].Value, mo.Properties["Capacity"].Value);

     mos.Dispose();


     string szResult=szb.ToString().Trim();
     return szResult.Remove(szResult.Length - 1).Split(";".ToCharArray()); 
}

static void Main(string[] args) 
{
     System.Collections.IEnumerator ieret = ListPhysicalMemory().GetEnumerator();
     while (ieret.MoveNext()) 
     {
     Console.WriteLine(ieret.Current.ToString()); 
     }
}

}