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

IIS sunucusundaki yüklü olan bileşenleri görmek için aşağıdaki kodu boş bir asp sayfasına ekleyin ve sunucuya yükleyip çalıştırın.

<%
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("Yüklü bileşenlerin listesi:")
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) & "<br />")
End if
err.clear
next
%>

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir