Ir para conteúdo
Fórum Script Brasil
  • 0

Componentes

dnlmosilva

Perguntado por dnlmosilva,

 Share

Pergunta

14 respostass a esta questão

Posts Recomendados

  • 0
ursolouco

ursolouco

Postado
Postado
Salve galera script Brasil...

EU gostaria de saber se alguém aqui tem aquele script que verifica os componentes instalados no servidor...

Eu tinha certeza que este script estava postado aqui em algum lugar, mas procurei e não encontrei...

No mais fico no aguardo valeu?!

[]s Daniel

Brother!!

Tópico de funções, olha lá

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Não se esquece de verificar se o componente que voce quer verificar a existencia consta deste script, pois a alguns dias atraz o pessoal tava usando esse codigo para verificar se o Dundas Upload existia no servidor e o script não verifica esse componente, então eu adicionei ele. Aqui esta o script:

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

' 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) = "Dundas.Upload.2"

' apelido do componente!
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) = "Dundas Upload"

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

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

Se alguém disponibilizar um servidor, a gente poderiar criar uma base de dados atualizavel de componentes, onde nós pudessemos cadastrar novos componentes com o nome, função, onde conseguir, etc. que alem de servir de guia de referencia tambem gerasse automaticamente o codigo para testar os componentes no server.

alguém ta afim de participar??

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Como é que é?

você quer criar um banco de dados de componentes?

A idéia é boa

Mas, num sei se alguém disponibilizaria um servidor pra isso

Quem sabe falando com o Jissa, mas acho dificil..

Bom, enfim, todos os componentes que eu vou utilizando aqui, eu vou fazendo um 'how to' deles, hehe

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
ar_ctjd

ar_ctjd

Postado
Postado

Fala urso, então fiz a verificação e o CDONTS está instalado.

para confirmar, verifiquei tb se o IIS estava com a opção de SMTP e ele está habilitado tb.

você sabe o que pode ser, então?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...