Create un file .asp con il codice che segue, caricatelo sul server e richiamatelo dal browser.
Scoprirete quale componente email è installato sul server .
Sono presenti 14 componenti, con ovviamente la possibilità di inserirne di altri (se ne conoscete).

Buon lavoro.

codice:
<% @ Language="VBScript" %>
<% Option Explicit %>
<%

Dim theComponent(14)
Dim theComponentName(14)

' the components
theComponent(0) = "SMTPsvg.Mailer"
theComponent(1) = "Persits.MailSender"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "CDONTS.NewMail"
theComponent(4) = "CDONTS.NewMail"
theComponent(5) = "dkQmail.Qmail"
theComponent(6) = "Geocel.Mailer"
theComponent(7) = "iismail.iismail.1"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10)= "CDO.Message"								
theComponent(11)= "aspSmartMail.SmartMail"		
theComponent(12)= "ArclabEmailToolBox.Mailer" 
theComponent(13)= "VSEmail.SMTPSendMailEx" 		
theComponent(14)= "VSEmail.SMTPSendMail" 			

' the name of the components
theComponentName(0) = "ASPMail"
theComponentName(1) = "ASPEMail"
theComponentName(2) = "ASPQMail"
theComponentName(3) = "CDONTS"
theComponentName(4) = "Chili!Mail"
theComponentName(5) = "dkQMail"
theComponentName(6) = "GeoCel"
theComponentName(7) = "IISMail"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10)= "CDOSYS"								
theComponentName(11)= "SmartMail"							
theComponentName(12)= "Emailtoolbox"					
theComponentName(13)= "VSEmail2.0"						
theComponentName(14)= "VSEmail1.0"						

Function IsObjInstalled(strClassString)
On Error Resume Next
' initialize default values
IsObjInstalled = False
Err = 0
' testing code
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
' cleanup
Set xTestObj = Nothing
Err = 0
End Function
%>

<html>
<head>
<title>EMail Component Test</title>
</head>
<body bgcolor="white" text="midnightblue" link="darkblue" aLink="red" vLink="red">
<font face="Verdana, Arial, Helvetica">
<table border=0 cellspacing=0 cellpadding=0 align=center>
  <tr valign="top">
    <td bgcolor="black">
    <table border=0 cellspacing=1 cellpadding=4>
      <tr valign="top">
        <td bgcolor="midnightblue" colspan="2" align="center"><font size="2" color="mintcream">Test
          componenti Email</font></td>
      </tr>
      <tr valign="top">
        <td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">COMPONENTE</font></td>
				<td bgcolor="midnightblue" align="center"><font size="2" color="mintcream">STATUS</font></td>
      </tr>
        <% Dim i
           For i=0 to UBound(theComponent)
             Response.Write "<tr><td bgColor=""A0B0E0"" align=""right""><font face=""Verdana, Arial, Helvetica"" size=""2"">" & theComponentName(i) & "</td><td bgColor=""A0B0E0"" align=""center"">"
	     If Not IsObjInstalled(theComponent(i)) Then
	       Response.Write "non installato"
	     Else
	       Response.Write "installato!"
	     End If
	     Response.Write "</td></font></tr>" & vbCrLf
	   Next %>
    </table>
    </td>
  </tr>
</table>
    </td>
  </tr>
</table>
</font>
</body>
</html>