¿Qué componentes tengo registrados?

Hereje · #1 (**permalink**) 07/12/2004, 15:55

Hola a todos!

Quisiera saber qué componentes tengo registrados en mi servidor web.
Alguien conoce alguna aplicación o forma para lograrlo ?

Desde ya, muy agradecido!

AlZuwaga · #2 (**permalink**) 07/12/2004, 17:53

mmm... en www.webwizguide.com hay uno pero si mal no recuerdo es sólo para los com'onentes de correo. date una vuelta por allí y fijate

lexus · #3 (**permalink**) 08/12/2004, 10:48

hola, mira este es el que yo uso, te muestra los mas usados o mas comunes, ovbiamente no estaran todos.. pero creo qeu te servira

Código:

   
<%
Dim theComponent(11)
Dim theComponentName(11)
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFffff">
<div align="center">Estos 
  son los componentes que tiene instalado este servidor <br>
  <br>
  <br>
  <% 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
%>
</div>
</body>
</html>

suerte

ponjos · #4 (**permalink**) 08/12/2004, 11:22

Lo más completo que he visto:
http://testwin2.worldispnetwork.com/

También tienen un .asp para bajar.

Saludos.

Myakire · #5 (**permalink**) 08/12/2004, 12:06

En las FAQ's también alguien posteo su forma de lograrlo