Die beste Methode, um die aktuelle Speicherkonfiguration in VBA zu erhalten

Question

Ich versuche, die aktuelle Benutzer RAM-Konfiguration zu erhalten. Ich möchte VBA verwenden, um dies nachzuschlagen und es dann in einer Tabelle zu speichern. Ich brauche die Anzahl der Chips zusammen mit der Menge an RAM auf jedem Chip. Ist es möglich, programmgesteuert mithilfe von VBA nachzuschlagen? Muss ich Windows Script Host verwenden?

Answer 1

Sie können diese WMI mit tun:

Dim devlist as object 
Dim dev as object 
Dim totalRAM as long 
Dim numChips as long 
Set devlist = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_LogicalMemoryConfiguration") 
numChips = 0 
For Each dev In devlist 
    numChips = numChips + 1 
    totalRAM = totalRAM + CLng(dev.TotalPhysicalMemory) 
Next 
devlist = Nothing 
MsgBox "RAM: NumChips = " & numChips & ", Total = " & (totalRAM/1024) & "MB"