<%
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 & _
        ", <BR>Disponibilità: " & objWEBM.Availability & _
        ", <BR>Architettra: " & objWEBM.Architecture & _
        ", <BR>Descriztione: " & objWEBM.Description & _
        ", <BR>Stato CPU: " & objWEBM.CpuStatus & _
        ", <BR>Velocità di Clock: " & objWEBM.CurrentClockSpeed & _
        ", <BR>Voltaggio attuale: " & objWEBM.CurrentVoltage & _
        ", <BR>Data Width: " & objWEBM.DataWidth & _
        ", <BR>Frequenza Esterna di clock: " & objWEBM.ExtClock & _
        ", <BR>Dimensione Cache L2: " & objWEBM.L2CacheSize & _
        ", <BR>Velocità Cache L2: " & objWEBM.L2CacheSpeed & _
        ", <BR>Costruttore: " & objWEBM.Manufacturer & _
        ", <BR>Velocità massima di Clock: " & objWEBM.MaxClockSpeed & _
        ", <BR>ID Processore: " & objWEBM.ProcessorId & _
        ", <BR>Tipo Processore: " & objWEBM.ProcessorType & _
        ", <BR>Stato: " & objWEBM.Status & _
        ", <BR>Informazioni sullo statuo: " & objWEBM.StatusInfo & _
        ", <BR>Famiglia Processore: " & objWEBM.Family & "<BR></LI>"
  Next
  Response.write "</UL>"

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

End Function

Call ShowProcessors("vComputerName")
%>