Meilleure méthode pour obtenir la configuration de la mémoire actuelle dans VBA

Question

Je tente d'obtenir la configuration actuelle de la RAM des utilisateurs. Je voudrais utiliser VBA pour regarder cela et ensuite le stocker dans une table. J'ai besoin du nombre de jetons avec la quantité de RAM sur chaque puce. Est-ce possible de rechercher par programme en utilisant VBA? Ai-je besoin d'utiliser Windows Script Host?

Answer 1

Vous pouvez le faire en utilisant WMI:

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"