Componentchecker.asp
------------------------------
<%response.buffer=true %>
<title>componentchecker.asp</title>
<body bgcolor="#FFFFFF">
<%
dim successSTR, FailSTR, checkSTR
whichfile=Server.MapPath("component.ini" )
Set fs = CreateObject("Scripting.FileSystemObject" )
Set thisfile = fs.OpenTextFile(whichfile, 1, False)
counter=0
do Until thisfile.AtEndOfStream
counter=counter+1
thisline=thisfile.readline
attempt=Trim(thisline)
pad=" "
Do While attempt="" AND thisfile.atendofStream=false
thisline=thisfile.readline
attempt=Trim(thisline)
Loop
If Mid(thisline,1,1)="[" Then
' ignore
CheckSTR=CheckSTR & thisline & " "
lastcategory=category
category=LCase(thisline)
oldcategory=Mid(category,1,Len(category)-1)
category=Replace(category,"www." ,"<a href='http://www." )
If InStr(category,"href" )>0 Then
category=Mid(category,2)
category=category & "'>" & oldcategory & "]</a>"
End If
group= "<b>" & category & " component group</b><br>"
successcount=0
failcount=0
thisline=thisfile.readline
attempt=thisline
Response.Flush
End If
on error resume Next
Set tempobject=Server.CreateObject(attempt)
eol="<br>" & vbcrlf
whicherr=err.number
If whicherr=0 Then
If successcount=0 Then
successSTR=successSTR & group
End If
vleft=" (ver="
vright=") "
Select Case LCase(attempt)
Case "adodb.connection"
version= vleft & tempobject.version & vright
Case Else
version=""
End Select
successSTR= successSTR & pad & "<b>" & attempt & version & "</b> successfull!" & eol
successcount=successcount+1
Else
If failcount=0 Then
FailSTR=FailSTR & group
End If
If whicherr=-2147221005 Then
msg = " is not registered!"
Else
msg = " failed. Error #" & whicherr
End If
FailSTR= failSTR & pad & "<b>" & attempt & "</b>" & msg & eol
failcount=failcount+1
End If
Set tempobject=Nothing
Loop
thisfile.Close
Set thisfile=Nothing
Set fs=Nothing
Response.Write "Checked: " & checkSTR & "<hr>"
Response.Write successSTR & "<hr>"
Response.Write failSTR
%>
-------------------------------------------
Component.ini
---------------------------------------
[standard]
mswc.browsertype
mswc.nextlink
scripting.dictionary
scripting.filesystemobject
[ado]
adodb.recordset
adodb.connection
adodb.command
[cdo]
CDONTS.NewMail
[cyscape]
cyScape.browserObj
[indexserver]
ixsso.Query
ixsso.Util
[Lyris]
Lyris.LCP
[http://msdn.microsoft.com/scripting]
Wscript.Shell
[msfreebies]
iissample.asp2htm
iissample.contentrotator
iissample.registry
iissample.summaryinfos
iissample.tracer
mswc.adrotator
mswc.counters
mswc.myinfo
MSWC.PageCounter
MSWC.PermissionChecker
mswc.tools
mswc.loadbalance
[msXML]
microsoft.XMLHTTP
microsoft.XMLDOM
[www.aspdb.com]
ASPdb.Free
ASPdb.View
ASPdb.Pro
ASPdb.EP
[www.serverobjects.com]
ASPChart.Chart
AspConv.Expert
AspDNS.Lookup
AspFile.FileObj
AspHTTP.Conn
AspImage.Image
AspInet.FTP
AspMX.Lookup
AspNNTP.Conn
AspPager.Pager
SMTPsvg.Mailer
[www.softartisans.com]
SoftArtisans.FileUp
SoftArtisans.SACheck
SoftArtisans.SASessionPro
SoftArtisans.FileManager
EZsite.Calender
EZsite.CalendarManager
EZsite.WebNotes
[www.active4.com]
ActiveLaunch.Control
ActiveSAR.SearchAndReplace
ActiveShopper.Cart
ActiveShopper.BasketItem
FileTouch.Control
PCAuthX.Authorizer
Prt2Disk.Control
SemClient.Control
SPrinterPro.Object
TimeSpan.Control
WWWPrint.Client
[Zaks Software]
ZaksPop3.Server
JavaPop3.Mailer
[www.persits.com]
Persits.MailSender
[www.oceantek.com]
ASPL.Login
[www.able-consulting.com]
ACI.WhoIs
[www.softwing.com]
Softwing.EventLogReader
Softwing.OdbcRegTool
w3info.w3info.1
InetCtls.Inet.1
Softwing.AspQPerfCounters
SQLOLE.SQLServer
SOFTWING.ASPEventlog
SOFTWING.ASPtear
SOFTWING.EDConverter
SOFTWING.EventLogReader
SOFTWING.FileCache.1
SOFTWING.OdbcRegTool
SOFTWING.LocaleFormatter
SOFTWING.Profiler
[www.dougdean.com]
EZsite.EZuploadLite
[www.algonet.se/~jekman]
lightcom.xBrowser
lightcom.xContent
lightcom.xPop3
lightcom.xSMTP
lightcom.xTree
lightcom.xBrowser
JESoftware.xContent
JESoftware.xPop3
JESoftware.xSMTP
JESoftware.xTree
[tech.dimac.net]
Socket.TCP
[www.de-info.com]
checkemail.maccheckemail
[www.pstruh.cz]
TCPIP.Trace
TCPIP.DNS
[www.dana-net.com/products/aspcomponents/magicregistry]
MagicRegistry.Tricks