Upravil jsem skript tak, aby počítal paměť v kB a MB, programátoři prominou za lehce naivní implementaci:

' Memory.vbs
' Sample VBScript to discover how much RAM in computer
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.3 - August 2005
' -------------------------------------------------- -----'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer
Dim MemkB
Dim MemMB

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
MemkB = objComputer.TotalPhysicalMemory/1024
MemMB = MemkB/1024
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM " & MemMB & " MBytes"
Next

WScript.Quit

' End of Sample Memory WMI / VBScript

Pavel