SAPERE QUANTA MEMORIA RAM VIENE OCCUPATA DAL PC
Random Access Memory
Vi siete mai chiesti quanta memoria sta sfruttando il pc?
Se la risposta è si, allora siete nella pagina giusta per soddisfare questa curiosità.
Questo script fà al caso nostro in quanto serve a controllare la memoria gestita dal pc, quindi copia e incolla e salviamo con nome aggiungendo .vbs
Codice
strComputer = "."
dim output
output="| "
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCSItem In colCSItems
output = output & "Totale Memoria fisica: "&FormatNumber(objCSItem.TotalPhysicalMemory/1024^2) & " MB | "
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
output = output & "Memoria Fisica Libera: "&FormatNumber(objOSItem.FreePhysicalMemory/1024^2) & " MB | "
output = output & "Totale Memoria Virtuale: "&FormatNumber(objOSItem.TotalVirtualMemorySize/1024^2) & " MB | "
output = output & "Memoria Virtuale Libera: "&FormatNumber(objOSItem.FreeVirtualMemory/1024^2) & " MB | "
output = output & "Totale della dimensione della Memoria Visibile: "&FormatNumber(objOSItem.TotalVisibleMemorySize/1024^2) & " MB "
output = output & " {I seguenti dati si riferiscono alla memoria della RAM}"
Next
WScript.Echo output
