Сбор информации о ОЗУ

[Talany]

Здравствуйте...
Как узнать абревиатуру озу?

#Include <Array.au3>
#NoTrayIcon

$oService   = ObjGet('winmgmts:\\.\root\cimv2')
Dim $ozushka[1][2] = [[0]]
$Ozu = $oService.ExecQuery('SELECT Capacity, Speed FROM Win32_PhysicalMemory')
If IsObj($oService) Then

    If IsObj($Ozu) Then
        For $Property In $Ozu
			$ozushka[0][0] += 1
			ReDim $ozushka[$ozushka[0][0] + 1][2]
			$ozushka[$ozushka[0][0]][0] = $Property.Capacity / (1024*1024)
			$ozushka[$ozushka[0][0]][1] = $Property.Speed
        Next
    EndIf
MsgBox (0, $ozushka[1][0], $ozushka[1][1])
EndIf

А можно ли узнать DDR400 или DDR333
Или чтото неверно???
Заранее благодарю

 

[Yashied]

У вас DDR2 PC2-3200?

P.S

[quote author=Microsoft]Speed of the physical memory—in nanoseconds.[/quote]

Хотя на самом деле в MHz.

:-\

У меня показывает 800 (DDR2 PC2-6400), а по ходу дела должно быть 400. Эта инфа берется из BIOS, а что там понаписано... Видимо это из-за двухканального режима.

 

[Talany]

я так понял что Винда не может определить DDR2 или DDR3
Она может определить только частоту
Увы частотой не понять DDR2 или просто DDR

У меня вообще смех стоит 200 MGh DDR-400 =) И на таком можно жить =)

 

[Yashied]

У меня вообще смех стоит 200 MGh DDR-400

Ну так все правильно.

#Include<array.au3>

$objWMIService = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2')
$colItems = $objWMIService.ExecQuery('Select * From Win32_PhysicalMemory')
Dim $aResults[$colItems.Count][15]
$Count = 0
For $ObjItem In $colItems
    $aResults[$Count][0 ] = $objItem.Tag
    $aResults[$Count][1 ] = $objItem.BankLabel
    $aResults[$Count][2 ] = $ObjItem.Capacity / 1024^2
    $aResults[$Count][3 ] = $objItem.Description
    $aResults[$Count][4 ] = $objItem.DataWidth
    $aResults[$Count][5 ] = $objItem.FormFactor
    $aResults[$Count][6 ] = $objItem.HotSwappable
    $aResults[$Count][7 ] = $objItem.Manufacturer
    $aResults[$Count][8 ] = $objItem.MemoryType
    $aResults[$Count][9 ] = $objItem.Name
    $aResults[$Count][10] = $objItem.PartNumber
    $aResults[$Count][11] = $objItem.DeviceLocator
    $aResults[$Count][12] = $objItem.Speed
    $aResults[$Count][13] = $objItem.PositionInRow
    $aResults[$Count][14] = $objItem.TypeDetail
    $Count +=1
Next

_ArrayDisplay($aResults, 'RAM Info')