List alle komponenter installeret under IIS ?

http://www.cit.teknologisk.dk/brugergrupper/wwwerfa/biblioteket/matmoder/-iisday/btb/btb2/-slides/sld004.asp

Uhm .. hvad?

:-)

kerne kom. i IIS du vil havde dem alle :o)

Jeg forstår ikke hva\' du siger .. =)

Jeg efterlyser en mulighed for at finde ud af hvilke 3rd party komponenter der er installeret på en IIS server.

Hvis dine overstående to indlæg er løsningen på mit problem, så omformulér dem venligst så min lille hjerne ka\' dekode dit svar =)

Mvh
Anders!

det er vist dette du søger .... :)

<%


    Dim comList(39)
        comList(0) = Array( \"AB Mailer\",\"ABMailer.Mailman\" )
        comList(1) = Array( \"ABC Upload\",\"ABCUpload4.XForm\" )
        comList(2) = Array( \"ActiveFile\",\"ActiveFile.Post\" )
        comList(3) = Array( \"ActiveX Data Object\",\"ADODB.Connection\" )
        comList(4) = Array( \"Adiscon SimpleMail\",\"ADISCON.SimpleMail.1\" )
        comList(5) = Array( \"ASP HTTP\",\"AspHTTP.Conn\" )
        comList(6) = Array( \"ASP Image\",\"AspImage.Image\" )
        comList(7) = Array( \"ASP Mail\",\"SMTPsvg.Mailer\" )
        comList(8) = Array( \"ASP Simple Upload\",\"ASPSimpleUpload.Upload\" )
        comList(9) = Array( \"ASP Smart Cache\",\"aspSmartCache.SmartCache\" )
        comList(10) = Array( \"ASP Smart Mail\",\"aspSmartMail.SmartMail\" )
        comList(11) = Array( \"ASP Smart Upload\",\"aspSmartUpload.SmartUpload\" )
        comList(12) = Array( \"ASP Tear\",\"SOFTWING.ASPtear\" )
        comList(13) = Array( \"ASP Thumbnailer\",\"ASPThumbnailer.Thumbnail\" )
        comList(14) = Array( \"ASP WhoIs\",\"WhoIs2.WhoIs\" )
        comList(15) = Array( \"ASPSoft NT Object\",\"ASPSoft.NT\" )
        comList(16) = Array( \"ASPSoft Upload\",\"ASPSoft.Upload\" )
        comList(17) = Array( \"CDO NTS\",\"CDONTS.NewMail\" )
        comList(18) = Array( \"Chestysoft Image\",\"csImageFile.Manage\" )
        comList(19) = Array( \"Chestysoft Upload\",\"csASPUpload.Process\" )
        comList(20) = Array( \"Dimac JMail\",\"JMail.Message\" )
        comList(21) = Array( \"Distinct SMTP\",\"DistinctServerSmtp.SmtpCtrl\" )
        comList(22) = Array( \"Dundas Mailer\",\"Dundas.Mailer\" )
        comList(23) = Array( \"Dundas Upload\",\"Dundas.Upload.2\" )
        comList(24) = Array( \"Dynu Encrypt\",\"Dynu.Encrypt\" )
        comList(25) = Array( \"Dynu HTTP\",\"Dynu.HTTP\" )
        comList(26) = Array( \"Dynu Mail\",\"Dynu.Email\" )
        comList(27) = Array( \"Dynu Upload\",\"Dynu.Upload\" )
        comList(28) = Array( \"Dynu WhoIs\",\"Dynu.Whois\" )
        comList(29) = Array( \"Easy Mail\",\"EasyMail.SMTP.5\" )
        comList(30) = Array( \"File System Object\",\"Scripting.FileSystemObject\" )
        comList(31) = Array( \"Ticluse Teknologi HTTP\",\"InteliSource.Online\" )
        comList(32) = Array( \"Last Mod\",\"LastMod.FileObj\" )
        comList(33) = Array( \"Microsoft XML Engine\",\"Microsoft.XMLDOM\" )
        comList(34) = Array( \"Persits ASP JPEG\",\"Persits.Jpeg\" )
        comList(35) = Array( \"Persits ASPEmail\",\"Persits.MailSender\" )
        comList(36) = Array( \"Persits ASPEncrypt\",\"Persits.CryptoManager\" )
        comList(37) = Array( \"Persits File Upload\",\"Persits.Upload.1\" )
        comList(38) = Array( \"SMTP Mailer\",\"SmtpMail.SmtpMail.1\" )
        comList(39) = Array( \"Soft Artisans File Upload\",\"SoftArtisans.FileUp\" )


    Function IsAvailable( comIdentity )
        On Error Resume Next
        IsAvailable = False
        Err = 0
        Set xTestObj = Server.CreateObject( comIdentity )
        If 0 = Err Then IsAvailable = True
        Set xTestObj = Nothing
        Err = 0
    End Function

    Avail = 0
    For Idx = LBound( comList ) To UBound( comList )
        If IsAvailable( comList(Idx)(1) ) Then
            Response.Write( \"<li><font face=tahoma size=2><font color=navy>\" & comList(Idx)(0) & \"</font> found</font></li>\" & vbNewLine)
            Avail = Avail + 1
        End If
    Next
    Response.Write( \"<p><font face=tahoma size=2 color=red>Test complete. Found <b>\" & Avail )
    Response.Write( \"</b> of <b>\" & UBound( comList ) + 1 & \"</b> COM objects.</font></p>\" & vbNewLine )

%>