vba - VBA で現在のメモリ構成を取得する最良の方法

Question

現在のユーザーの RAM 構成を取得しようとしています。VBA を使用してこれを検索し、テーブルに格納したいと考えています。チップの数と、各チップの RAM の量が必要です。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"