<<%@ Language=VBScript %>
<% Option Explicit %>
<%
DIM strCOMP
DIM arrCOMP
strCOMP = "ADODB.Command,"&_
"ADODB.Connection,"&_
"ADODB.Recordset,"&_
"ADODB.Stream,"&_
"ADOX.Catalog,"&_
"AspDNS.Lookup,"&_
"ASPExec.Execute,"&_
"AspHTTP.Conn,"&_
"AspImage.Image,"&_
"ASPChart.Chart,"&_
"AspConv.Expert,"&_
"AspDNS.Lookup,"&_
"AspFile.FileObj,"&_
"AspHTTP.Conn,"&_
"AspImage.Image,"&_
"AspInet.FTP,"&_
"AspForum.Forum2.1,"&_
"AspMX.Lookup,"&_
"AspPager.Pager,"&_
"0AspMX.Lookup,"&_
"AspNNTP.Conn,"&_
"AspPing.Conn,"&_
"ASPSimpleUpload.Upload,"&_
"AspSock.Conn,"&_
"CDO.MESSAGE,"&_
"CDONTS.NewMail,"&_
"ChilkatWebMail2.WebMailMan2,"&_
"Dundas.Mailer,"&_
"Dundas.PieChartServer,"&_
"Dundas.PieChartServer.2,"&_
"Dundas.Upload,"&_
"Dundas.Upload.2,"&_
"Dundas.UploadProgress,"&_
"Scripting.FilesystemObject,"&_
"ECHOCom.Echo,"&_
"GeoIPCOM.GeoIP,"&_
"GuidMakr.GUID,"&_
"ImgSize.Check,"&_
"IPLocation.Country,"&_
"ixsso.Query,"&_
"ixsso.Util,"&_
"InetCtls.Inet,"&_
"JMAil.Message,"&_
"JMail.POP3,"&_
"JMail.SMTPMail,"&_
"JRO.JetEngine,"&_
"MetaSql.CSqlMetaData,"&_
"Microsoft.DiskQuota.1,"&_
"Microsoft.XMLDOM,"&_
"Microsoft.XMLHTTP,"&_
"MSWC.AdRotator,"&_
"MSWC.BrowserType,"&_
"MSWC.ContentRotator,"&_
"MSWC.Counters,"&_
"MSWC.IISLog,"&_
"MSWC.MyInfo,"&_
"MSWC.NextLink,"&_
"MSWC.PageCounter,"&_
"MSWC.PermissionChecker,"&_
"MSWC.Status,"&_
"MSWC.Tools,"&_
"MSXML.DomDocument,"&_
"MSXML2.DOMDocument,"&_
"MSXML2.DOMDocument.3.0,"&_
"Msxml2.FreeThreadedDOMDocument.3.0,"&_
"MSXML2.ServerXMLHTTP,"&_
"MSXML2.ServerXMLHTTP.3.0,"&_
"MSXML2.XSLTemplate,"&_
"OWC11.ChartSpace,"&_
"OWC.Chart,"&_
"Persits.CryptoManager,"&_
"Persits.Grid,"&_
"Persits.Jpeg,"&_
"Persits.MailSender,"&_
"Persits.Upload,"&_
"Persits.Upload.1,"&_
"Persits.UploadProgress,"&_
"POP3svg.Mailer,"&_
"SAPI.SpVoice,"&_
"Scripting.Dictionary,"&_
"Scripting.FileSystemObject,"&_
"Scriptlet.TypeLib,"&_
"SMTPsvg.Mailer,"&_
"SOFTWING.AspTear,"&_
"SOFTWING.EventLogReader,"&_
"SOFTWING.OdbcRegTool,"&_
"SOFTWING.AspQPerfCounters,"&_
"SOFTWING.ASPEventlog,"&_
"SOFTWING.EDConverter,"&_
"SOFTWING.EventLogReader,"&_
"SOFTWING.FileCache.1,"&_
"SOFTWING.OdbcRegTool,"&_
"SOFTWING.LocaleFormatter,"&_
"SOFTWING.Profiler,"&_
"VBScript.RegExp,"&_
"w3info.w3info.1,"&_
"WinHttp.WinHttpRequest.5,"&_
"WinHttp.WinHttpRequest.5.1,"&_
"WScript.Network,"&_
"WScript.Shell"
On Error Resume Next'SPLIT function
used to build an array
arrCOMP = split(strCOMP, ",")
Response.Write "<p><b>Checking YOUR SITE for " & Ubound(arrCOMP)+1
& " components...</b></p>"
Response.Write "<br><b>Installed list...</b><br><br>"
DIM i
DIM objCheck
err = 0
For i=0 To Ubound(arrCOMP)
set objCheck = Server.CreateObject( trim(arrCOMP(i)) )
If err = 0 then
Response.Write "Checking-- <b>" & trim(arrCOMP(i) ) & "</b> "
Response.Write "<font color=""0000FF"">Installed</font>"
Response.Write "<br/>"
End if
err = 0
Next
Response.Write "<br><b> Complete list...</b><br><br>"
For i=0 To Ubound(arrCOMP)
Response.Write "Checking-- <b>" & trim(arrCOMP(i) ) & "</b> "
set objCheck = Server.CreateObject( trim(arrCOMP(i)) )
If err then
Response.Write "<font color=""FF0000"">Not available</font>"
Else
Response.Write "<font color=""0000FF"">Installed</font>"
End if
Response.Write "<br/>"
err = 0
Next
Response.Write "<p><b>Checking for YOUR SITE installed
components COMPLETED!</b></p><br>"
%> |
