#529 - 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.
Approfondimenti
Commenti

Esprimi il tuo giudizio su questo script:

Per procedere devi essere autenticato.

brizioo scrive:
#529 - Enumerare gli oggetti COM con una pagina ASP

mi da errore:SWbemLocator error '80041003' Accesso negato /prova.asp, line 9???

Continua »»» | Rispondi »»»
giovedì 23 ottobre 2003 | 5 risposte

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

Hai qualcosa da segnalare su questo script?