Memoria Disponibile

Arieccoti con le richieste… :D:D occhio non sforzarti troppo!!!! (scherzo)
Comunque mi fa piacere che hai interesse non solo a giocare col pc… :D:D (scusami ti sto distruggendo) 😉
Al solito copialo e incollalo nel blocco note e lo salvi con l’estensione .vbs
Questo script serve a controllare la memoria gestita dal pc….
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
Memoria Disponibile tramite VBS
Vota...