Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

Script vbs da modificare

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

Script vbs da modificare

Messaggioda crazy.cat » mar giu 05, 2007 2:36 pm

Da questo script, come posso fare che mi esca una lista unica delle varie memorie senza dover premere Ok ogni volta.

Codice: Seleziona tutto
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCSItem In colCSItems
  WScript.Echo "Total Physical Memory: " & objCSItem.TotalPhysicalMemory
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
  WScript.Echo "Free Physical Memory: " & objOSItem.FreePhysicalMemory
  WScript.Echo "Total Virtual Memory: " & objOSItem.TotalVirtualMemorySize
  WScript.Echo "Free Virtual Memory: " & objOSItem.FreeVirtualMemory
  WScript.Echo "Total Visible Memory Size: " & objOSItem.TotalVisibleMemorySize
Next


Grazie
Quando i molti governano, pensano solo a contentar sé stessi, si ha allora la tirannia più balorda e più odiosa: la tirannia mascherata da libertà.
Avatar utente
crazy.cat
MLI Hero
MLI Hero
 
Messaggi: 30959
Iscritto il: lun gen 12, 2004 1:38 pm
Località: Mestre

Messaggioda Rumez » mar giu 05, 2007 4:40 pm

Codice: Seleziona tutto
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 & "Total Physical Memory: " & objCSItem.TotalPhysicalMemory  & " ] - [ "
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
  output = output & "Free Physical Memory: " & objOSItem.FreePhysicalMemory & " ] - ["
  output = output & "Total Virtual Memory: " & objOSItem.TotalVirtualMemorySize & " ] - [ "
  output = output & "Free Virtual Memory: " & objOSItem.FreeVirtualMemory &  " ] - [ "
  output = output & "Total Visible Memory Size: " & objOSItem.TotalVisibleMemorySize & " ] "
Next

WScript.Echo output
Avatar utente
Rumez
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 1783
Iscritto il: mar mag 13, 2003 2:08 pm

Messaggioda crazy.cat » mar giu 05, 2007 4:45 pm

funziona grazie
Quando i molti governano, pensano solo a contentar sé stessi, si ha allora la tirannia più balorda e più odiosa: la tirannia mascherata da libertà.
Avatar utente
crazy.cat
MLI Hero
MLI Hero
 
Messaggi: 30959
Iscritto il: lun gen 12, 2004 1:38 pm
Località: Mestre

Messaggioda Rumez » mar giu 05, 2007 4:47 pm

[^] gattone!
Avatar utente
Rumez
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 1783
Iscritto il: mar mag 13, 2003 2:08 pm


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising