Artigo que demonstra a os componentes
instalados no servidor !

<% @ Language="VBScript"
%>
<% Option Explicit %>
<%
Dim theComponent(11)
Dim theComponentName(11)

‘ componentes
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"

‘ apelido do componente!
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
‘theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"

Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>

Componentes instalados:

<% Dim i For i=0 to UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write " " & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf End If Next %> " & vbCrLf Response.Write "" & theComponentName(i) & "" & vbCrLf Response.Write "