On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")

For Each objItem in colItems
    s = ""
    s = s & "Bank Label: " & objItem.BankLabel & vbcrlf
    s = s & "Capacity: " & objItem.Capacity & vbcrlf
    s = s & "Data Width: " & objItem.DataWidth & vbcrlf
    s = s & "Description: " & objItem.Description & vbcrlf
    s = s & "Device Locator: " & objItem.DeviceLocator & vbcrlf
    s = s & "Form Factor: " & objItem.FormFactor & vbcrlf
    s = s & "Hot Swappable: " & objItem.HotSwappable & vbcrlf
    s = s & "Manufacturer: " & objItem.Manufacturer & vbcrlf
    s = s & "Memory Type: " & objItem.MemoryType & vbcrlf
    s = s & "Name: " & objItem.Name & vbcrlf
    s = s & "Part Number: " & objItem.PartNumber & vbcrlf
    s = s & "Position In Row: " & objItem.PositionInRow & vbcrlf
    s = s & "Speed: " & objItem.Speed & vbcrlf
    s = s & "Tag: " & objItem.Tag & vbcrlf
    s = s & "Type Detail: " & objItem.TypeDetail & vbcrlf

    Wscript.Echo s

Next