Asp ile yüklü bileşenleri görmek

Unix/Linux sunucularda php'de hangi bileşenler yüklü, sunucuda hangi dizin ana dizinim, php versiyonu kaç gibi özellikleri basit bir phpinfo ile görüntüleyebiliriz. Asp tarafında ise bunun için asp kod yazıp, var mı yok mu sorgusu sorabiliriz.

<% 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 %>