Enumerare gli oggetti COM con una pagina ASP
Con lo script di oggi iniziamo una serie di script dedicati al WMI.
Il WMI (Windows Mangment Instrumentation) è una serie di classi che ci permette di monitorare qualsiasi
funzione del Sistema Operativo (98,2000 o XP) con di semplici metodi.
L'esempio di oggi ci permette di enumerare gli oggetti COM presenti nel sistema.
<%
Function ShowCOMClasses(vComputerName)
Dim objLocator, objService, objWEBMCol, objWEBM
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
'Connettiamoci a WMI
If isEmpty(vServerName) = True then
Set objService = objLocator.ConnectServer
Else
Set objService = objLocator.ConnectServer(vComputerName)
End If
'Prendiamo l'istanza dell'oggetto Webm Service che ci interessa
Set objWEBMCol = objService.InstancesOf("Win32_ClassicCOMClass")
Response.write "<H2>COM Classes:</H2><HR><UL>"
'Enumeriamo gli oggetti nella collezione
For Each objWEBM in objWEBMCol
Response.write "<LI>Nome: " & objWEBM.Caption & _
", <BR>ID Component: " & objWEBM.ComponentId & _
", <BR>Data Installazione: " & objWEBM.InstallDate & _
", <BR>Descrizione: " & objWEBM.Description & _
", <BR>Nome: " & objWEBM.Name & _
", <BR>Stato: " & objWEBM.Status & "<BR></LI>"
Next
Response.write "</UL>"
'Chiudiamo tutti gli oggetti
Set objLocator = Nothing
Set objService = Nothing
Set objWEBMCol = Nothing
Set objWEBM = Nothing
End Function
'Sostituiamo a vComputerName il nome del computer che ci interessa oppure passiamo stringhe vuote.
Call ShowCOMClasses("vComputerName")
%>Nel prossimo script ci occuperemo della gestione del processore.
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
