Sunucuda Yüklü Bileşenleri Görme (ASP)

IIS sunucusundaki yüklü olan bileşenleri görmek için aşağıdaki kodu çalıştırmanız yeterli olucaktır.

<% Dim  rtyBilesenler(68)

rtyBilesenler(1) = "ADODB.Command"

rtyBilesenler(2) = "ADODB.Connection"

rtyBilesenler(3) = "ADODB.Recordset"

rtyBilesenler(4) = "ADODB.Stream"

rtyBilesenler(5) = "ADOX.Catalog"

rtyBilesenler(6) = "AspDNS.Lookup"

rtyBilesenler(7) = "ASPExec.Execute"

rtyBilesenler(8) = "AspHTTP.Conn"

rtyBilesenler(9) = "AspImage.Image"

rtyBilesenler(10) = "AspMX.Lookup"

rtyBilesenler(11) = "AspNNTP.Conn"

rtyBilesenler(12) = "AspPing.Conn"

rtyBilesenler(13) = "AspSock.Conn"

rtyBilesenler(14) = "CDO.MESSAGE"

rtyBilesenler(15) = "CDONTS.NewMail"

rtyBilesenler(16) = "Dundas.Mailer"

rtyBilesenler(17) = "Dundas.PieChartServer"

rtyBilesenler(18) = "Dundas.PieChartServer.2"

rtyBilesenler(19) = "Dundas.Upload"

rtyBilesenler(20) = "Dundas.Upload.2"

rtyBilesenler(21) = "Dundas.UploadProgress"

rtyBilesenler(22) = "ECHOCom.Echo"

rtyBilesenler(23) = "GuidMakr.GUID"

rtyBilesenler(24) = "ImgSize.Check"

rtyBilesenler(25) = "ixsso.Query"

rtyBilesenler(26) = "ixsso.Util"

rtyBilesenler(27) = "JMAil.Message"

rtyBilesenler(28) = "JMail.POP3"

rtyBilesenler(29) = "JMail.SMTPMail"

rtyBilesenler(30) = "JRO.JetEngine"

rtyBilesenler(31) = "Microsoft.DiskQuota.1"

rtyBilesenler(32) = "microsoft.XMLDOM"

rtyBilesenler(33) = "Microsoft.XMLHTTP"

rtyBilesenler(34) = "MSWC.AdRotator"

rtyBilesenler(35) = "MSWC.BrowserType"

rtyBilesenler(36) = "MSWC.ContentRotator"

rtyBilesenler(37) = "MSWC.Counters"

rtyBilesenler(38) = "MSWC.IISLog"

rtyBilesenler(39) = "MSWC.MyInfo"

rtyBilesenler(40) = "MSWC.MyInfo"

rtyBilesenler(41) = "MSWC.NextLink"

rtyBilesenler(42) = "MSWC.PageCounter"

rtyBilesenler(43) = "MSWC.PermissionChecker"

rtyBilesenler(44) = "MSWC.Status"

rtyBilesenler(45) = "MSWC.Tools"

rtyBilesenler(46) = "MSXML.DomDocument"

rtyBilesenler(47) = "MSXML2.DOMDocument"

rtyBilesenler(48) = "MSXML2.DOMDocument.3.0"

rtyBilesenler(49) = "Msxml2.FreeThreadedDOMDocument.3.0"

rtyBilesenler(50) = "MSXML2.ServerXMLHTTP"

rtyBilesenler(51) = "MSXML2.ServerXMLHTTP.3.0"

rtyBilesenler(52) = "MSXML2.XSLTemplate"

rtyBilesenler(53) = "Persits.Grid"

rtyBilesenler(54) = "Persits.Jpeg"

rtyBilesenler(55) = "Persits.MailSender"

rtyBilesenler(56) = "Persits.Upload"

rtyBilesenler(57) = "Persits.Upload.1"

rtyBilesenler(58) = "Persits.UploadProgress"

rtyBilesenler(59) = "POP3svg.Mailer"

rtyBilesenler(60) = "Scripting.Dictionary"

rtyBilesenler(61) = "Scripting.FileSystemObject"

rtyBilesenler(62) = "Scriptlet.TypeLib"

rtyBilesenler(63) = "SMTPsvg.Mailer"

rtyBilesenler(64) = "SOFTWING.AspTear"

rtyBilesenler(65) = "VBScript.RegExp"

rtyBilesenler(66) = "WinHttp.WinHttpRequest.5.1"

rtyBilesenler(67) = "WScript.Network"

rtyBilesenler(68) = "WScript.Shell"

Response.write("<b>Yüklü Bileşenlerin Listesi :</b><b*r />")

On Error Resume  Next

For  x=1 To  Ubound(rtyBilesenler)

Set  obj = Server.CreateObject(rtyBilesenler(x))

if  err.number = 0  Then

Set  obj =  nothing

Response.write(rtyBilesenler(x) & "<b*r />")

End  if

err.clear

next
%>

Not : <b*r /> aradaki "*" karakterini kaldırın aksi halde bileşenler bir madde misali alt alta değil de sayfanın solundan sağına doğru uzunlamasına sıralanır.