Вот VBS - скрипт
Код:
Comp = "."
Nsp = "Root\CIMV2"
Cl = "Win32_PhysicalMemory"
Mess = "Физическая память:" + vbCrLf
Set oCl = GetObject("WinMgmts:\\" + Comp + "\" + Nsp + ":" + Cl)
Set PM = oCl.Instances_
SumCapacity = 0
For Each oPM In PM
Mess = Mess + vbCrLf + "Bank Label: " + oPM.BankLabel + " Capacity: " + oPM.Capacity
SumCapacity = SumCapacity + oPM.Capacity
Next
MsgBox (Mess + vbCrLf + vbCrLf + " Суммарный объем: " + CStr(SumCapacity))
