Лучший способ получить текущую конфигурацию памяти в VBA

Question

Я пытаюсь получить конфигурацию оперативной памяти текущих пользователей. Я хотел бы использовать VBA, чтобы найти это и затем сохранить его в таблице. Мне нужно количество чипов вместе с количеством оперативной памяти на каждом чипе. Можно ли искать программно с помощью VBA? Нужно ли использовать Windows Script Host?

Answer 1

Вы можете сделать это, используя 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"