¿Cómo puedo saber los componentes que tengo?

[Elyas]

Hola, la verdad es que he tirado mucho de internet pero no he obtenido un buen resultado buscando una respuesta a mi duda. Y es que tengo un servidor dedicado en mis manos y una web en asp que tiene problemas a la hora de enviar un email con el objeto persists, no lo inicializa, está claro que éste al ser de pago no está en mi servidor.

He probado inicializar con otros de tutos que he encontrado por internet pero todos dan el mismo error. Me parece un auténtico rollo tener que andar así sin saber cuales son los componentes que tengo realmente.

¿Teniendo a mano el control de un servidor dedicado no hay forma de saber que componentes para el ASP clásico tengo? He buscado y no he encontrado por ningún lado y mirar ficheros dll...o los que tengan que ser no es plan.

Recuerdo haber usado una vez un script que lanzabas por http y te devolvía una bonita lista de lo que tienes pero nada, no lo encuentro en todo el internet!!!


HELP chicos!

[Adler]

Hola

Prueba con esto

Código asp:

<&#37;
Dim theComponent(5)
Dim theComponentName(5)
    
theComponent(0) = "ADODB.Connection"
theComponent(1) = "Scripting.FileSystemObject"
theComponent(2) = "CDONTS.NewMail"
theComponent(3) = "Persits.Upload.1"
theComponent(4) = "CDO.Message"
    
theComponentName(0) = "ADODB"
theComponentName(1) = "FileSystemObject"
theComponentName(2) = "CDONTS"
theComponentName(3) = "Persits Upload"
theComponentName(4) = "CDOSYS"
    
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
 
 
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 
%>
 

Suerte

[bebo]

Yo tengo otro código para saber que componentes tienes instalados:

Código:

<%if ""=request.form then%>
<form action="" method=post>
Escriba el nombre del componente que quiere checar si lo tiene instalado o no: <input name=com><br><input type=submit value=Checar></form>
<%else
on error resume next
set objeto=server.createobject(request.form("com"))
if err.description <> "" then%>
No <%
else%>Si<%
end if%> tienes instalado el componente <b><%=request.form("com")%></b><%
end if%>

Suerte.

[Elyas]

siento no haber contestado antes, pero la verdad es que pensaba que esto y estaba olvidado pero no, veo que habéis contestado, y el foro no me ha notificado de ello :(

Añun así, muchas gracias a los dos!!!