Sunucudaki Yuklu Bileşenleri kontrol eden fonksiyon(61 bileşeni kontrol ediyor)
.
ASP olarak kaydedip sunucuya atın yeterli
Kod:
<%@Language="VBScript"%>
<%
Option Explicit
On Error Resume Next
Response.Buffer = True
server.ScriptTimeout = 1200
Dim theComponent(61)
Dim theComponentName(61)
'===============================================================================
' COMPONENT Listesi
'===============================================================================
theComponent(0) = "CDONTS.NewMail"
theComponent(1) = "SMTPsvg.Mailer"
theComponent(2) = "SMTPsvg.Mailer"
theComponent(3) = "AspImage.image"
theComponent(4) = "POP3svg.Mailer"
theComponent(5) = "AspNNTP.Conn"
theComponent(6) = "AspFile.FileObj"
theComponent(7) = "AspConv.Expert"
theComponent(8) = "AspHTTP.Conn"
theComponent(9) = "AspDNS.Lookup"
theComponent(10) = "AspMX.Lookup"
theComponent(11) = "WaitFor.Comp"
theComponent(12) = "LastMod.FileObj"
theComponent(13) = "ImgSize.Check"
theComponent(14) = "GuidMakr.GUID"
theComponent(15) = "ASPsvg.Process"
theComponent(16) = "AspPing.Conn"
theComponent(17) = "AspInet.FTP"
theComponent(18) = "ASPExec.Execute"
theComponent(19) = "AspCrypt.Crypt"
theComponent(20) = "Bible.Lookup"
theComponent(21) = "SoftArtisans.SAFile"
theComponent(22) = "SoftArtisans.FileManager"
theComponent(23) = "SoftArtisans.XFRequest"
theComponent(24) = "SoftArtisans.FileManagerTX"
theComponent(25) = "SoftArtisans.SASessionPro.1"
theComponent(26) = "SMUM.XCheck.1"
theComponent(27) = "Softartisans.Archive"
theComponent(28) = "SoftArtisans.SMTPMail"
theComponent(29) = "Softartisans.ExcelWriter"
theComponent(30) = "SoftArtisans.Groups"
theComponent(31) = "SoftArtisans.Performance"
theComponent(32) = "SoftArtisans.RAS"
theComponent(33) = "SoftArtisans.Shares"
theComponent(34) = "SoftArtisans.User"
theComponent(35) = "Jmail.smtpmail"
theComponent(36) = "w3sitetree.tree"
theComponent(37) = "w3.upload"
theComponent(38) = "w3.netutils"
theComponent(39) = "Socket.TCP"
theComponent(40) = "w3.netutils"
theComponent(41) = "Persits.MailSender"
theComponent(42) = "Persits.Upload.1"
theComponent(43) = "Persits.Jpeg"
theComponent(44) = "Persits.Grid"
theComponent(45) = "Persits.AspUser"
theComponent(46) = "Persits.CryptoManager"
theComponent(47) = "dkQmail.Qmail"
theComponent(48) = "Geocel.Mailer"
theComponent(49) = "iismail.iismail.1"
theComponent(50) = "SmtpMail.SmtpMail.1"
theComponent(51) = "ocxQmail.ocxQmailCtrl.1"
theComponent(52) = "CalendarCom.CalendarStuff"
theComponent(53) = "dgEncrypt.Key"
theComponent(54) = "dgFileUpload.dgUpload"
theComponent(55) = "dgReport.Report"
theComponent(56) = "dgSort.QuickSort"
theComponent(57) = "dgTree.Tree"
theComponent(58) = "Dundas.Mailer"
theComponent(59) = "Dundas.PieChartServer.2"
theComponent(60) = "Dundas.Upload"
theComponent(61) = "EasyMail.SMTP.5"
'===============================================================================
'THIS IS THE PART THAT GENERATES THE LINKS ON INSTALLED OBJECTS. IT CAN BE ADDED TO OR CHANGED.
'===============================================================================
theComponentName(0) = "<a href=""http://www.Microsoft.com"">CDONTS/Chili!mail (freeware)</a>"
theComponentName(1) = "<a href=""http://www.serverobjects.com"">server Objects - ASPMail (Commercial Component)</a>"
theComponentName(2) = "<a href=""http://www.serverobjects.com"">server Objects - ASPQMail (Commercial Component)</a>"
theComponentName(3) = "<a href=""http://www.serverobjects.com"">server Objects - ASPImage (Commercial Component)</a>"
theComponentName(4) = "<a href=""http://www.serverobjects.com"">server Objects - ASPPop3 (Commercial Component)</a>"
theComponentName(5) = "<a href=""http://www.serverobjects.com"">server Objects - AspNNTP (Commercial Component)</a>"
theComponentName(6) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspFile (Commercial Component)</a>"
theComponentName(7) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspConv (Commercial Component)</a>"
theComponentName(8) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspHTTP (Commercial Component)</a>"
theComponentName(9) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspDNS (Commercial Component)</a>"
theComponentName(10) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspMX (Commercial Component)</a>"
theComponentName(11) = "<a href=""http://www.serverobjects.com"">ServerObjects - Waitfor (freeware)</a>"
theComponentName(12) = "<a href=""http://www.serverobjects.com"">ServerObjects - Last Modified (freeware)</a>"
theComponentName(13) = "<a href=""http://www.serverobjects.com"">ServerObjects - image Size (freeware)</a>"
theComponentName(14) = "<a href=""http://www.serverobjects.com"">ServerObjects - GUID Maker (freeware)</a>"
theComponentName(15) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspProc (freeware)</a>"
theComponentName(16) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspPing (freeware)</a>"
theComponentName(17) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspInet (freeware)</a>"
theComponentName(18) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspExec (freeware)</a>"
theComponentName(19) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspCryp (freeware)</a>"
theComponentName(20) = "<a href=""http://www.serverobjects.com"">ServerObjects - AspBible (freeware)</a>"
theComponentName(21) = "<a href=""http://www.softartisans.com"">SoftArtisians Fileup</a>"
theComponentName(22) = "<a href=""http://www.softartisans.com"">SoftArtisians FileManager</a>"
theComponentName(23) = "<a href=""http://www.softartisans.com"">SoftArtisians X-File</a>"
theComponentName(24) = "<a href=""http://www.softartisans.com"">SoftArtisians FileManagerTX</a>"
theComponentName(25) = "<a href=""http://www.softartisans.com"">SoftArtisans SA-Session Pro</a>"
theComponentName(26) = "<a href=""http://www.softartisans.com"">SoftArtisians Check (form validator)</a>"
theComponentName(27) = "<a href=""http://www.softartisans.com"">SoftArtisans Archive</a>"
theComponentName(28) = "<a href=""http://www.softartisans.com"">SoftArtisans SMTPmail</a>"
theComponentName(29) = "<a href=""http://www.softartisans.com"">SoftArtisans Excel Writer</a>"
theComponentName(30) = "<a href=""http://www.softartisans.com"">SoftArtisans.Groups (SA-Admin)</a>"
theComponentName(31) = "<a href=""http://www.softartisans.com"">SoftArtisians.Performance (SA-Admin)</a>"
theComponentName(32) = "<a href=""http://www.softartisans.com"">SoftArtisans.RAS (SA-Admin)</a>"
theComponentName(33) = "<a href=""http://www.softartisans.com"">SoftArtisans.Shares (SA-Admin)</a>"
theComponentName(34) = "<a href=""http://www.softartisans.com"">SoftArtisans.User (SA-Admin)</a>"
theComponentName(35) = "<a href=""http://www.dimac.net"">w3 JMail</a>"
theComponentName(36) = "<a href=""http://www.dimac.net"">w3 site Tree : www.dimac.net"
theComponentName(37) = "<a href=""http://www.dimac.net"">w3 Upload</a>"
theComponentName(38) = "<a href=""http://www.dimac.net"">w3 Utils</a>"
theComponentName(39) = "<a href=""http://www.dimac.net"">w3 Sockets</a>"
theComponentName(40) = "<a href=""http://www.dimac.net"">w3 NetDebug</a>"
theComponentName(41) = "<a href=""http://www.persits.com"">Persits - ASPEmail</a>"
theComponentName(42) = "<a href=""http://www.persits.com"">Persits - ASPUpload</a>"
theComponentName(43) = "<a href=""http://www.persits.com"">Persits - AspJpeg</a>"
theComponentName(44) = "<a href=""http://www.persits.com"">Persits - AspGrid</a>"
theComponentName(45) = "<a href=""http://www.persits.com"">Persits - AspUser</a>"
theComponentName(46) = "<a href=""http://www.persits.com"">Persits - AspEncrypt</a>"
theComponentName(47) = "dkQMail"
theComponentName(48) = "<a href=""http://www.geocel.com/"">GeoCel</a>"
theComponentName(49) = "IISMail"
theComponentName(50) = "SMTP"
theComponentName(51) = "<a href=""http://www.flicks.com"">OCXQMail</a>"
theComponentName(52) = "<a href=""http://www.devguru.com"">DevGuru - dgcalendar</a>"
theComponentName(53) = "<a href=""http://www.devguru.com"">DevGuru - dgEncrypt</a>"
theComponentName(54) = "<a href=""http://www.devguru.com"">DevGuru - dgFileup</a>"
theComponentName(55) = "<a href=""http://www.devguru.com"">DevGuru - dgReport</a>"
theComponentName(56) = "<a href=""http://www.devguru.com"">DevGuru - dgSort</a>"
theComponentName(57) = "<a href=""http://www.devguru.com"">DevGuru - dgTree</a>"
theComponentName(58) = "<a href=""http://www.dundas.com"">Dundas - ASPMailer</a>"
theComponentName(59) = "<a href=""http://www.dundas.com"">Dundas - Pie Chart server Control 2.0</a>"
theComponentName(60) = "<a href=""http://www.dundas.com"">Dundas - Upload</a>"
theComponentName(61) = "<a href=""http://www.quiksoft.com"">Quicksoft - EasyMail</a>"
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>COMCOM BY SAM MOSES</TITLE>
<style type="text/CSS">
<!--
td { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; border-color: black black #000000; border-style: solid; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px}
body { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; background-color: #FFFFFF; color: #000000; cursor: default}
table { border: #000000; border-style: solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px}
strong { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 24px}
-->
</style>
</HEAD>
<BODY>
<p align="left"><strong>Component Report Utility:</strong></p>
<table border=0 cellspacing=0 cellpadding=4 width="700">
<% Dim i2
For i2=0 to UBound(theComponent) %>
<% If IsObjInstalled(theComponent(i2)) Then %>
<tr>
<td bgcolor="#FFFFFF" align="" A0B0E0"" center width="581"""> <%=theComponentName(i2)%>
</td>
<td bgcolor="#009900" align="" A0B0E0"" right width="100""">
<div align="right"><b><font color="#FFFFFF">Kurulu</font></b></div>
</td>
</tr>
<% End If %>
<%
Response.Flush()
Next
%>
<% Dim i
For i=0 to UBound(theComponent) %>
<% If not IsObjInstalled(theComponent(i)) Then %>
<tr>
<td bgcolor="#FFFFFF" align="" A0B0E0"" center width="581"""> <%=theComponentName(i)%>
</td>
<td align="" A0B0E0"" right width="100""">
<div align="right"><font color="#FF0000"><b>Kurulu Degil</b></font></div>
</td>
</tr>
<% End If %>
<%
Response.Flush()
Next
%>
</table>
<br>
</BODY>
</HTML>