Conoscere ram disponibile

[peste1]

Ciao a tutti,
avrei la necessità di mostrare tramite una pagina ASP la memoria RAM disponibile di un server.

Esiste una soluzione con WMI oppure devo scrivermi un componente apposta?

Grazie.

[viki1967]

http://www.morpheusweb.it/html/manua...etto_drive.asp

[optime]

Originariamente inviato da viki1967
http://www.morpheusweb.it/html/manua...etto_drive.asp

vikiviki, dov'è che leggo la RAM?

[viki1967]

Originariamente inviato da optime
vikiviki, dov'è che leggo la RAM?

Infatti non può leggerla la RAM disponibile (che io sappia )... il link gli spiega cosa può fare con ASP riguardo a componenti hardware... potrebbe provare a personalizzarsi questo codice, ma non so se fa per lui:

<%
Function ShowProcessors(vComputerName)
  Dim objLocator, objService, objWEBMCol, objWEBM, mycompname, strResult

  Set objLocator = CreateObject("WbemScripting.SWbemLocator")

  'Connettiamoci al WMI
  If IsEmpty("vComputerName") = True Then
    Set objService = objLocator.ConnectServer
  Else
    Set objService = objLocator.ConnectServer("vComputerName")
  End If

  'Prendiamo l'istanza del Servizio Webm
  Set objWEBMCol = objService.InstancesOf("Win32_Processor")


  Response.write "<H2>Informazioni sui Processori:</H2><HR><UL>"
  'Enumeriamoli
  For Each objWEBM In objWEBMCol
    Response.write "<LI>Nome: " & objWEBM.Caption & _
        ", 
Disponibilità: " & objWEBM.Availability & _
        ", 
Architettra: " & objWEBM.Architecture & _
        ", 
Descriztione: " & objWEBM.Description & _
        ", 
Stato CPU: " & objWEBM.CpuStatus & _
        ", 
Velocità di Clock: " & objWEBM.CurrentClockSpeed & _
        ", 
Voltaggio attuale: " & objWEBM.CurrentVoltage & _
        ", 
Data Width: " & objWEBM.DataWidth & _
        ", 
Frequenza Esterna di clock: " & objWEBM.ExtClock & _
        ", 
Dimensione Cache L2: " & objWEBM.L2CacheSize & _
        ", 
Velocità Cache L2: " & objWEBM.L2CacheSpeed & _
        ", 
Costruttore: " & objWEBM.Manufacturer & _
        ", 
Velocità massima di Clock: " & objWEBM.MaxClockSpeed & _
        ", 
ID Processore: " & objWEBM.ProcessorId & _
        ", 
Tipo Processore: " & objWEBM.ProcessorType & _
        ", 
Stato: " & objWEBM.Status & _
        ", 
Informazioni sullo statuo: " & objWEBM.StatusInfo & _
        ", 
Famiglia Processore: " & objWEBM.Family & "
</LI>"
  Next
  Response.write "[/list]"

  'Rilasciamo gli oggetti creati
  Set objLocator = Nothing
  Set objService = Nothing
  Set objWEBMCol = Nothing
  Set objWEBM = Nothing

End Function

Call ShowProcessors("vComputerName")
%>