I componenti da controllare

<%

‘ Creiamo la lista dei componenti da controllare !

‘ Potete aggiungere tutti quelli che volete nel formato

‘ ListaCOM(x) = Array(“nome_componente”,”nome_componente.chiamata_componente”)

Dim ListaCOM(41)

ListaCOM(0) = Array( “AB Mailer”,”ABMailer.Mailman” )

ListaCOM(1) = Array( “ABC Upload”,”ABCUpload4.XForm” )

ListaCOM(2) = Array( “ActiveFile”,”ActiveFile.Post” )

ListaCOM(3) = Array( “ActiveX Data Object”,”ADODB.Connection” )

ListaCOM(4) = Array( “Adiscon SimpleMail”,”ADISCON.SimpleMail.1″ )

ListaCOM(5) = Array( “ASP HTTP”,”AspHTTP.Conn” )

ListaCOM(6) = Array( “ASP Image”,”AspImage.Image” )

ListaCOM(7) = Array( “ASP Mail”,”SMTPsvg.Mailer” )

ListaCOM(8) = Array( “ASP Simple Upload”,”ASPSimpleUpload.Upload” )

ListaCOM(9) = Array( “ASP Smart Cache”,”aspSmartCache.SmartCache” )

ListaCOM(10) = Array( “ASP Smart Mail”,”aspSmartMail.SmartMail” )

ListaCOM(11) = Array( “ASP Smart Upload”,”aspSmartUpload.SmartUpload” )

ListaCOM(12) = Array( “ASP Tear”,”SOFTWING.ASPtear” )

ListaCOM(13) = Array( “ASP Thumbnailer”,”ASPThumbnailer.Thumbnail” )

ListaCOM(14) = Array( “ASP WhoIs”,”WhoIs2.WhoIs” )

ListaCOM(15) = Array( “ASPSoft NT Object”,”ASPSoft.NT” )

ListaCOM(16) = Array( “ASPSoft Upload”,”ASPSoft.Upload” )

ListaCOM(17) = Array( “CDO NTS”,”CDONTS.NewMail” )

ListaCOM(18) = Array( “Chestysoft Image”,”csImageFile.Manage” )

ListaCOM(19) = Array( “Chestysoft Upload”,”csASPUpload.Process” )

ListaCOM(20) = Array( “Dimac JMail”,”JMail.Message” )

ListaCOM(21) = Array( “Distinct SMTP”,”DistinctServerSmtp.SmtpCtrl” )

ListaCOM(22) = Array( “Dundas Mailer”,”Dundas.Mailer” )

ListaCOM(23) = Array( “Dundas Upload”,”Dundas.Upload.2″ )

ListaCOM(24) = Array( “Dynu Encrypt”,”Dynu.Encrypt” )

ListaCOM(25) = Array( “Dynu HTTP”,”Dynu.HTTP” )

ListaCOM(26) = Array( “Dynu Mail”,”Dynu.Email” )

ListaCOM(27) = Array( “Dynu Upload”,”Dynu.Upload” )

ListaCOM(28) = Array( “Dynu WhoIs”,”Dynu.Whois” )

ListaCOM(29) = Array( “Easy Mail”,”EasyMail.SMTP.5″ )

ListaCOM(30) = Array( “File System Object”,”Scripting.FileSystemObject” )

ListaCOM(31) = Array( “Ticluse Teknologi HTTP”,”InteliSource.Online” )

ListaCOM(32) = Array( “Last Mod”,”LastMod.FileObj” )

ListaCOM(33) = Array( “Microsoft XML Engine”,”Microsoft.XMLDOM” )

ListaCOM(34) = Array( “Persits ASP JPEG”,”Persits.Jpeg” )

ListaCOM(35) = Array( “Persits ASPEmail”,”Persits.MailSender” )

ListaCOM(36) = Array( “Persits ASPEncrypt”,”Persits.CryptoManager” )

ListaCOM(37) = Array( “Persits File Upload”,”Persits.Upload.1″ )

ListaCOM(38) = Array( “SMTP Mailer”,”SmtpMail.SmtpMail.1″ )

ListaCOM(39) = Array( “Soft Artisans File Upload”,”SoftArtisans.FileUp” )

ListaCOM(40) = Array( “Image Size”, “ImgSize.Check” )

ListaCOM(41) = Array( “Microsoft XML HTTP”, “Microsoft.XMLHTTP” )

‘ Creiamo la funzione per vedere quali di questi sono attivi

Function attiva( comIdentity )

On Error Resume Next

attiva = False

Err = 0

Set xTestObj = Server.CreateObject( comIdentity )

If Err = 0 Then attiva = True

Set xTestObj = Nothing

Err = 0

End Function

‘ Creiamo la funzione per controllare i componenti e per stampare i risultati

Public Function controllaCOM()

disponibile = 0

strTxt = “<table cellpadding=3 cellspacing=3 border=0 align=center width=400>” & vbNewLine

For indice = LBound( ListaCOM ) To UBound( ListaCOM )

Provider = indice

strTxt = strTxt & vbTab & “<tr><td width=200><font face=Verdana size=2>” & ListaCOM(indice)(0) & “</font></td>”

strTxt = strTxt & “<td align=right width=20><font face=Verdana size=2>[</font></td>”

If attiva( ListaCOM(indice)(1) ) Then

strTxt = strTxt & “<td align=center><font face=Verdana size=2 color=blue>Disponibile</font></td>”

disponibile = disponibile + 1

Else

strTxt = strTxt & “<td align=center><font face=Verdana size=2>No</font></td>”

End If

strTxt = strTxt & “<td align=left width=20><font face=Verdana size=2>]</font></td></tr>” & vbNewLine

Next

strTxt = strTxt & vbTab & “<tr><td colspan=4 height=30><center><font face=Verdana size=2><font color=blue>” & disponibile & “</font> dei ”

strTxt = strTxt & UBound( ListaCOM ) + 1 & ” componenti della lista sono supportati.</font></center></td></tr>” & vbNewLine

controllaCOM = strTxt & “</table>” & vbNewLine

End Function

‘ E adesso vediamo di visualizzare il tutto

Response.Write( controllaCOM() )

%>