Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Ted k'

Ver componentes instalados

Recommended Posts

Esse código você visualiza todos os componentes instalados!!!

<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim theComponent(14)
Dim theComponentName(14)

        ' Lista dos Componentes
        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"
        theComponent(12) = "aspSmartUpload.SmartUpload"
        theComponent(13) = "DAO.DBEngine.35"

        ' Apelido dos Componentes
        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"
        theComponentName(12) = "ASpSmartUpload"
        theComponentName(13) = "DBEngine"

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>O que tem aqui?</title>
</head>
<body>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes
instalados:</b></font></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
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>" & vbCrLf
                Response.Write "</td>" & vbCrLf
                Response.Write "</tr>" & vbCrLf
        End If
Next
%>
</table>
</font>
</td>
</tr>
</table>
</body>
</html>

Abraço a Todos!!!!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...