Script vbs da modificare

[crazy.cat]

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

[Rumez]

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


[crazy.cat]

funziona grazie

[Rumez]

gattone!