_GetMemType get memory Type(generation)

[czyt]

Sorry for my bad English!may it helps someone!

; #FUNCTION# ====================================================================================================================
; Name ..........: _GetMemType
; Description ...: Get mem Type
; Syntax ........: _GetMemType()
; Parameters ....: None
; Return values .: None
; Author ........:czyt (虫子樱桃)
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: MsgBox(0,'',_GetMemType())
; ===============================================================================================================================
Func _GetMemType()
    $ObjMem = ObjGet('winmgmts:\\' & @ComputerName)
    $ObjMemdata = $ObjMem.InstancesOf("Win32_PhysicalMemory")
    Local $Speed, $DDRType
    For $t In $ObjMemdata
        If $t.Speed > 0 Then
            $Speed = $t.Speed
            ExitLoop
        EndIf
    Next
    Switch $Speed
        Case $Speed < 400
            $DDRType = 'DDR1'
        Case $Speed > 400 And $Speed < 800
            $DDRType = 'DDR2'
        Case $Speed > 800
            $DDRType = 'DDR3'
    EndSwitch
    Return $DDRType
EndFunc   ;==>_GetMemType