USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Scripts    (Miscelâneas)

Título da Dica:  Saber qual componente de e-mail está instalado no servidor
Postada em 20/12/2001 por K@ÐØ ®      Clique aqui para enviar email para o autor  ricardolerma@uol.com.br
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
     Dim theComponent(11)
     Dim theComponentName(11)

     ' 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"

     ' 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"

     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">
          Componentes instalados:</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 "" & theComponentName(i) & "" & vbCrLf
          Response.Write "</td>" & vbCrLf
          Response.Write "</tr>" & vbCrLf
          End If
          Next
          %>
          </table>
          </font>
     </td>
</tr>
</table>

</body>
</html>
 


CyberWEB Network Ltda.    © Copyright 2000-2017   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página