$memkey="HKEY_LOCAL_MACHINE\hardware\resourcemap\system resources\physical memory"

  $hexdmp=readvalue($memkey,".Translated")

  for $start = 1 to len($hexdmp) step 8

    $hex=""

    for $counter = 0 to 7 step 2

      $hex=substr($hexdmp,$start + $counter,2)+$hex

    next

    if $hexvals=""

      $hexvals=$hex

    else

      $hexvals=$hexvals + "|" + $hex

    endif

  next

  $vals=split($hexvals,"|")



  for $counter= 8 to ubound($vals) step 4

   $nul=execute("$$memory=0.0 + $$memory + &"+$vals[$counter]+"/1024")

  next

  $memory=($memory +648)/1024

$memory ?

get $