$iRam = _GetGraphicCardRAM()
$iRam /= 1024 * 1024 ;Rechnet die Bytes in MByte um
ConsoleWrite($iRam & " MB Ram insgesamt" & @CRLF)

Func _GetGraphicCardRAM($sComputer = "localhost")
    Local $oWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\CIMV2")
    Local $aCol = $oWMI.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", _
                                          0x10 + 0x20)
    For $oAct In $aCol
        Return $oAct.AdapterRAM
    Next
EndFunc