Memoria Disponibile

Rieccoti con le richieste... :-D occhio non sforzarti troppo!!!! (Scherzo) ;-)
Comunque mi fa piacere che hai interesse non solo a giocare col pc... :-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 mermoria gestita dal pc....

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
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento