Break On

        "Memory info on local computer:" ?
        "Location	Capacity	Speed" ?
        For each $memModule in PhysicalMemoryInfo('msea001')
         $memModule[0] chr(9) chr(9) $memModule[1] chr(9) chr(9) $memModule[4] ?
        Next
        ? "Done."
        get $

Function PhysicalMemoryInfo(optional $sComp)
dim $fF,$mT,$oWMI,$oM,$tMem[0]

 if not $sComp
  $sComp = "."
 endif
 $fF="Unknown","Other","SIP","DIP","ZIP","SOJ","Proprietary","SIMM","DIMM","TSOP","PGA",
  "RIMM","SODIMM","SRIMM","SMD","SSMP","QFP","TQFP","SOIC","LCC","PLCC","BGA","FPBGA","LGA"
 $mT="Unknown","Other","DRAM","Synchronous DRAM","Cache DRAM","EDO","EDRAM","VRAM","SRAM",
  "RAM","ROM","Flash","EEPROM","FEPROM","EPROM","CDRAM","3DRAM","SDRAM","SGRAM","RDRAM","DDR"

 $oWMI = GetObject("winmgmts:\\" + $sComp + "\root\cimv2")
 if @error exit @error endif
 For each $oM in $oWMI.ExecQuery("Select * from Win32_PhysicalMemory",,48)
  $tMem[ubound($tMem)]=$oM.DeviceLocator,1 * $oM.Capacity / 1048576,
  $fF[$oM.FormFactor], $mT[$oM.MemoryType], $oM.Speed,$oM.DataWidth
  redim preserve $tMem[ubound($tMem)+1]
 Next
 if 0<ubound($tMem)
  redim preserve $tMem[ubound($tMem)-1]
 endif
 $PhysicalMemoryInfo=$tMem
EndFunction