Memoria Disponibile

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 mermoria gestita dal pc, quindi copia e incolla e salviamo con nome aggiungendo .vbs

strComputer = "."
dim output
output="| "
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")
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

strComputer = "."

dim output

output="| "

Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootCIMV2")

Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objCSItem In colCSItems

output = output & "Totale Memoria fisica: "&FormatNumber(objCSItem.TotalPhysicalMemory/1024^2) &

" MB | "

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}"

WScript.Echo output

DOWNLOAD

Memoria Disponibile Ultima modifica: 2016-03-17T16:10:01+02:00 da Giovanni

Articoli Correlati