Function Memory(Optional $sComputer)

  Dim $MemKey, $HexDmp, $Pointer, $Counter, $Start, $Hex, $HVal, $Hex2Dec

  $MemKey = 'HKLM\Hardware\ResourceMap\System Resources\Physical Memory'

  ;Correct any UNC paths if supplied or missing 

  $MemKey = IIf((Not $sComputer), $MemKey,('\\'+Join(Split($sComputer,'\'),'',3)+'\'+$MemKey))

  ; Get the memory value from the registry 

  $HexDmp = ReadValue($MemKey, '.Translated')

  ; Check for invalid read and Return 

  If Not $HexDmp

    $Memory = @ERROR Exit $Memory

  EndIf

  If Len($HexDmp) = 0 

    $Memory = 1 Exit $Memory

  EndIf

  ; Prepare the array 

  Dim $HVals[((Len($HexDmp) / 32) - 2)]

  $Pointer = 0

  ; Resequence the bytes in the HexDump, starting in the 65th position, 

  ; and take 8 bytes every 32 bytes 

  For $Start = 65 To Len($HexDmp) Step 32

    $Hex = ''

    For $Counter = 6 To 0 Step -2

      $Hex = $Hex + SubStr($HexDmp, $Start + $Counter, 2)

    Next

    ; Load the hex value into the array and increment position 

    $HVals[$Pointer] = $Hex

    $Pointer = $Pointer + 1

  Next

  ; Now have an array of hex values representing installed physical RAM 

  For Each $HVal In $HVals

    $Hex2Dec = 0.0

    While $HVal

      $Hex2Dec = 16.0 * $Hex2Dec + Execute('Exit &' + Left($HVal ,1))

      $HVal = SubStr($HVal ,2)

    Loop

    $Memory = $Memory + CDbl($Hex2Dec) / 1024

  Next

  $Memory = Int(($Memory + 648) / 1024)

  If ($Memory Mod 2)=1 

      $Memory = $Memory+1 

  EndIf

EndFunction

Dim $Mem

$Mem=Memory()

If @ERROR

  ? 'Error: ' + @ERROR

Else

  ? 'Memory: ' + $Mem

EndIf

Color 'r/w'

? 'Press any key to continue...' ?

Get $Pause

Function Memory(Optional $sComputer)

  Dim $MemKey, $HexDmp, $Pointer, $Counter, $Start, $Hex, $HVal, $Hex2Dec

  $MemKey = 'HKLM\Hardware\ResourceMap\System Resources\Physical Memory'

  $MemKey = IIf((Not $sComputer), $MemKey,('\\'+Join(Split($sComputer,'\'),'',3)+'\'+$MemKey))

  $HexDmp = ReadValue($MemKey, '.Translated')

  If Len($HexDmp) = 0 Or @ERROR 

    $Memory = 0 

    $Error = IIf(@ERROR, @ERROR, 87) 

    Exit $Error 

  EndIf 

  Dim $HVals[((Len($HexDmp) / 32) - 2)]

  $Pointer = 0

  For $Start = 65 To Len($HexDmp) Step 32

    $Hex = ''

    For $Counter = 6 To 0 Step -2

      $Hex = $Hex + SubStr($HexDmp, $Start + $Counter, 2)

    Next

    $HVals[$Pointer] = $Hex

    $Pointer = $Pointer + 1

  Next

  For Each $HVal In $HVals

    $Hex2Dec = 0.0

    While $HVal

      $Hex2Dec = 16.0 * $Hex2Dec + Execute('Exit &' + Left($HVal ,1))

      $HVal = SubStr($HVal ,2)

    Loop

    $Memory = $Memory + CDbl($Hex2Dec) / 1024

  Next

  $Memory = Int(($Memory + 648) / 1024)

  If ($Memory Mod 2)=1 

      $Memory = $Memory+1 

  EndIf

EndFunction

;;FUNCTION		Memory() 

;; 

;;AUTHOR		Glenn Barnas / FRIT-EROC 

;; 

;;ACTION		Returns the amount of Physical RAM in a local or remote 32GB system 

;; 

;;SYNTAX		Memory([system]) 

;; 

;;VERSION		1.0 

;; 

;;DATE			2005/02/25 

;; 

;;DATE REVISED		 

;; 

;;PARAMETERS		System - OPTIONAL - name of system to query. Default is local system 

;; 

;;REMARKS		Returns RAM size using registry value 

;;			Returns @ERROR on registry read failure, or 13/"Data is Invalid" if null 

;; 

;;RETURNS		Installed Physical RAM (in Megabytes) 

;; 

;;DEPENDENCIES		None 

;; 

;;TESTED WITH		WinNT, Win2K, WinXP, Win2K3 

;;			Tested with up to 6G of RAM 

;; 

;;EXAMPLES		$RAM = Memory('ThatPC') 

;; 



Function Memory(Optional $System)



  dim $, $MemKey, $HexDmp, $Pointer, $Counter, $Start, $Hex, $HVal, $Error, $Hex2Dec

  $Memory = 0.0



  ; Insure $System has "\\System\" format if it is specified 

  If $System <> ''

    $System = '\\' + Join(Split($System, '\'), '', 3) + '\'

  EndIf



  ; Get the memory value from the registry 

  $MemKey = $System + 'HKEY_LOCAL_MACHINE\hardware\resourcemap\system resources\physical memory'

  $HexDmp = ReadValue($MemKey, '.Translated')



  ; Check for invalid read and Return 

  If Len($HexDmp) = 0 Or @ERROR

    $Memory = 0 ; return 0 Mbytes 

    $Error = IIf(@ERROR, @ERROR, 13) ; Return "Data is Invalid" if no error but data is blank 

    Exit $Error

  EndIf



  ; Resequence the bytes in the HexDump, starting in the 65th position, 

  ; and take 8 bytes every 32 bytes for the total memory amount, sum the values 

  For $Start = 65 to Len($HexDmp) step 32

    $Hex = SubStr($HexDmp, $Start+6, 2)

    + SubStr($HexDmp, $Start+4, 2)

    + SubStr($HexDmp, $Start+2, 2)

    + SubStr($HexDmp, $Start, 2)

    $Hex2Dec = 0.0

    ; Simply taking the Val($Hex) can return negatives for values 

    While $Hex

      $Hex2Dec = 16.0 * $Hex2Dec + Val('&' + Left($Hex,1))

      $Hex = SubStr($Hex ,2)

    Loop

    $Memory = $Memory + CDbl($Hex2Dec) / 1024

  Next



  ; Reduce to meg value, add the lowest 640K that isn't referenced in the HexDump 

  $Memory = CInt(($Memory + 648) / 1024)



EndFunction