*-- returns the speed of each of the ram chips
LOCAL lcResult
lcResult = []
IF VERSION(5)>600
LOCAL loWMI, oItems, oItem
loWMI = GETOBJECT("winmgmts:\\.\root\cimv2")
oItems = loWMI.ExecQuery("select * from Win32_PhysicalMemory")
FOR EACH oItem IN oItems
lcResult = lcResult + TRANSFORM(oItem.Speed)+CHR(13)+CHR(10)
ENDFOR
ENDIF
MESSAGEBOX(lcResult)I am a little rusty on FoxPro, but this should do it.