Option Explicit

Dim Locator
Dim objService
Dim objEnumerator
Dim objInstance

Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set objService = Locator.ConnectServer

Set objEnumerator = objService.ExecQuery("Select * FROM Win32_OperatingSystem")
For Each objInstance In objEnumerator
  WScript.Echo "Free : " & objInstance.FreePhysicalMemory
  WScript.Echo "Total: " & objInstance.TotalVisibleMemorySize
Next
Set objEnumerator = Nothing