' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Set wmi = GetObject("winmgmts:") Set ramblocks = wmi.ExecQuery("SELECT * FROM Win32_PhysicalMemory") For Each ramblock In ramblocks WScript.Echo ramblock.BankLabel & ": " & ramblock.Capacity & " bytes" Next Set nics = Nothing Set wmi = Nothing