Get Total RAM from a PC via VBscript WMI

Get Total RAM from a PC via VBscript WMI

On Error Resume Next
Prefix ="fstu516"

For Count = 1 to 36
  Total = 0
  If Count < 10 then Fill="00"
  If Count < 100 and Count > 9 then Fill="0"
    strComputer = Prefix & Fill & Count
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
    For Each objItem in colItems
      Total = abs(Total) + objItem.Capacity
    Next
      Wscript.Echo strComputer & " " & Total/1024
Next