2010-07-16 20:49

/* Displays physical and virtual memory */
strcomputer = "."
objwmiservice = getobject("winmgmts:\\" || strcomputer || "\root\CIMV2")
colcsitems = objwmiservice~execquery("SELECT * FROM Win32_ComputerSystem")
DO objcsitem OVER colcsitems
	SAY "Total Physical Memory:" objcsitem~totalphysicalmemory
END
colositems = objwmiservice~execquery("SELECT * FROM Win32_OperatingSystem")
DO objositem OVER colositems
	SAY "Free Physical Memory:" objositem~freephysicalmemory
	SAY "Total Virtual Memory:" objositem~totalvirtualmemorysize
	SAY "Free Virtual Memory:" objositem~freevirtualmemory
	SAY "Total Visible Memory Size:" objositem~totalvisiblememorysize
END

2010-07-16 20:49