Function to view memory sizes of a system

Hi Guys,

I'm using this in VB6, i'm not too familiar with some of the things in VBScript. But basically this will print on a form the size of each memory module in the system and the total maximum amount of memory that can be put in the machine (correct me if i'm wrong). So say I have a machine with 2x256mb. I need it to spit out DIMM 1: 256Mb, DIMM2: 256Mb, Maximum Capacity 1GB. But, inorder to do that I need a way to distinguish each objItem it finds. I could probably do it if I knew how many instances of objItem.Capacity it has before it enters the loop. See what I'm saying, sorry I know I might not make too much sense.

So right now, the program will spit out
268435456mb
268435456mb
1048576mb

In a nutshell I don't know how to go about modifying the code so it will detect the last instance of 1048576mb and add a label of Maximum Capacity and then add the first 2 together by the time it gets out of the loop.

Thanks for any help provided.
Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Public Sub PhysicalMemory(pc As String)
 
On Error Resume Next
 
Set objWMIService = GetObject("winmgmts:\\" & pc & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory", , 48)
 
For Each objItem In colItems
    info.Print objItem.Capacity & "mb"
Next
 
End Sub