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
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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 |
