Определить, какая оперативная память установлена - DDR2 или DDR3 - Visual Basic .NET

Формулировка задачи:

есть ли возможность определить что стоит DDR 2 или 3 название производителя, таменги ... сколько герц , волт Какую информацию можно узнать о памяти в vb net ?

Решение задачи: «Определить, какая оперативная память установлена - DDR2 или DDR3»

textual
                            Листинг программы 
                        

                                Public Sub GetMemoryInfo()
        Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMemory")
        Dim info As ManagementObject
 
        For Each info In search.Get()
            TextBox1.Text = "BankLabel: " & info("BankLabel").ToString() & vbCrLf
            TextBox1.Text &= "Capacity: " & info("Capacity").ToString() & vbCrLf
            TextBox1.Text &= "Caption: " & info("Caption").ToString() & vbCrLf
            TextBox1.Text &= "CreationClassName: " & info("CreationClassName").ToString() & vbCrLf
            TextBox1.Text &= "DataWidth: " & info("DataWidth").ToString() & vbCrLf
            TextBox1.Text &= "Description: " & info("Description").ToString() & vbCrLf
            TextBox1.Text &= "DeviceLocator: " & info("DeviceLocator").ToString() & vbCrLf
            TextBox1.Text &= "FormFactor: " & info("FormFactor").ToString() & vbCrLf
            TextBox1.Text &= "InterleaveDataDepth: " & info("InterleaveDataDepth").ToString() & vbCrLf
            TextBox1.Text &= "InterleavePosition: " & info("InterleavePosition").ToString() & vbCrLf
            TextBox1.Text &= "Manufacturer: " & info("Manufacturer").ToString() & vbCrLf
            TextBox1.Text &= "MemoryType: " & info("MemoryType").ToString() & vbCrLf
            TextBox1.Text &= "Name: " & info("Name").ToString() & vbCrLf
            TextBox1.Text &= "PartNumber: " & info("PartNumber").ToString() & vbCrLf
            TextBox1.Text &= "PositionInRow: " & info("PositionInRow").ToString() & vbCrLf
            TextBox1.Text &= "Speed: " & info("Speed").ToString() & vbCrLf
            TextBox1.Text &= "SerialNumber: " & info("SerialNumber").ToString() & vbCrLf
            TextBox1.Text &= "Tag: " & info("Tag").ToString() & vbCrLf
            TextBox1.Text &= "TotalWidth: " & info("TotalWidth").ToString() & vbCrLf
            TextBox1.Text &= "TypeDetail: " & info("TypeDetail").ToString() & vbCrLf
            TextBox1.Text &= "SMBIOSMemoryType: " & info("SMBIOSMemoryType").ToString() & vbCrLf
 
        Next
 
'эти функции выдают ошибку !
        'MinVoltage
        'MaxVoltage
        'Attributes
        'HotSwappable
        'InstallDate
        'Model
        'OtherIdentifyingInfo
        'PoweredOn
        'Removable
        'Replaceable
        'SKU
        'Status
        'Version
 
    End Sub
                        