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.
Approfondimenti
#529 - Enumerare gli oggetti COM con una pagina ASPhttps://www.aspitalia.com/liste/usag/script.aspx?ID=529
Commenti
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
