我正在尝试获取当前用户的 RAM 配置。我想使用 VBA 进行查找,然后将其存储在表格中。我需要芯片的数量以及每个芯片上的 RAM 数量。这可以使用 VBA 以编程方式查找吗?我需要使用 Windows 脚本宿主吗?
Curtis Inderwiesche
问问题
1801 次
1 回答
5
您可以使用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"
于 2009-03-31T15:38:38.057 回答