#535 - Elencare i processori con WMI ed una pagina ASP

Continuiamo con lo script di oggi la serie di script dedicati al WMI.
Nel primo script abbiamo visto come era possibile enumerare gli oggetti COM del sistema.
L'esempio di oggi ci permette di enumerare tutti i processori presenti nel sistema e le loro caratteristiche.

<%
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")
%>


Anche in questo caso sostituire la stringa vComputerName con il sistema a cui si desidera connettersi.
Se non si specificano parametri, ci si connetterà al sistema locale.

Per approfondimenti si veda:
#529 - Enumerare gli oggetti COM con una pagina ASP
http://www.aspitalia.com/liste/usag/script.aspx?ID=529
Approfondimenti
Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

Aggiungi un nuovo commento »»»
Per inserire un commento, devi registrarti alla nostra community.

Hai qualcosa da segnalare su questo script?