Elencare i processori con WMI ed una pagina ASP

di Andrea Palmatè, in Classic ASP, UserScript, WMI,

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.

Approfondimenti

#529 - Enumerare gli oggetti COM con una pagina ASP
https://www.aspitalia.com/liste/usag/script.aspx?ID=529

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi