Physical Memory

[JanyMoon]

How to find out amount of physical memory with VPF?

 

[Mike Gagnon]

This requires WMI to be installed

On Error *
lcComputer = "."
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each loItem in colItems
?"Bank Label: " + loItem.BankLabel
?"Capacity: " + loItem.Capacity
?"Data Width: " + loItem.DataWidth
?"Description: " + loItem.Description
?"Device Locator: " + loItem.DeviceLocator
?"Form Factor: " + loItem.FormFactor
?"Hot Swappable: " + loItem.HotSwappable
?"Manufacturer: " + loItem.Manufacturer
?"Memory Type: " + loItem.MemoryType
?"Name: " + loItem.Name
?"Part Number: " + loItem.PartNumber
?"Position In Row: " + loItem.PositionInRow
?"Speed: " + loItem.Speed
?"Tag: " + loItem.Tag
?"Type Detail: " + loItem.TypeDetail
Next

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.
ReFox XI (www.mcrgsoftware.com)

 

[JanyMoon]

Is there no function like sys(nSomething) or API ?

 

[Mike Lewis]

JanyMoo,

Try the GlobalMemoryStatus() API call:

DECLARE GlobalMemoryStatus IN win32API STRING @cMemBuffer
cMemBuffer=REPLICATE(CHR(0),32)
GlobalMemoryStatus(@cMemBuffer)

Bytes 5 to 8 of cMemBuffer will contain the required value. The value is in binary, so will need to be converted to a form in which you can display it.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)