dark0 Postado Fevereiro 28, 2005 Denunciar Share Postado Fevereiro 28, 2005 Código que Verifica os Componentes instalados no Servidor.O melhor código que eu já vi. Lista vários componentes, e ainda possibilita selecionar categorias e tudo mais.Vale a pena conferir.<%@Language="VBScript"%> <% on error resume next response.buffer = True server.scripttimeout = 1000 installedCOMs = 0 onNum = 0 lastUpdate = "1/8/2002" constAutor = "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>© 2001, <a href=""mailto:JHarris@pensaworks.com"">James Harris.</a> Todos direitos reservados.</b><br>Tradução by <a href=""http://www.freecode.com.br"" target=""_blank"">Freecode.com.br</a>.</b>" ' COMPONENTES ' formatação: comObject|comURL|comName|comCategoria|comCategoria2 com = "CDONTS.NewMail|http://www.microsoft.com|CDONTS (free)|1|" com = com & "|.|" & "SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPMail|1|" com = com & "|.|" & "SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPQMail|1|" com = com & "|.|" & "AspImage.Image|http://www.serverobjects.com|Server Objects - ASPImage|4|" com = com & "|.|" & "POP3svg.Mailer|http://www.serverobjects.com|Server Objects - ASPPop3|1|" com = com & "|.|" & "AspNNTP.Conn|http://www.serverobjects.com|Server Objects - AspNNTP|0|" com = com & "|.|" & "AspFile.FileObj|http://www.serverobjects.com|ServerObjects - AspFile|6|" com = com & "|.|" & "AspConv.Expert|http://www.serverobjects.com|ServerObjects - AspConv|0|" com = com & "|.|" & "AspHTTP.Conn|http://www.serverobjects.com|ServerObjects - AspHTTP|0|" com = com & "|.|" & "AspDNS.Lookup|http://www.serverobjects.com|ServerObjects - AspDNS|0|" com = com & "|.|" & "AspMX.Lookup|http://www.serverobjects.com|ServerObjects - AspMX|1|" com = com & "|.|" & "WaitFor.Comp|http://www.serverobjects.com|ServerObjects - Waitfor (free)|0|" com = com & "|.|" & "LastMod.FileObj|http://www.serverobjects.com|ServerObjects - Last Modified (free)|6|" com = com & "|.|" & "ImgSize.Check|http://www.serverobjects.com|ServerObjects - Image Size (free)|4|" com = com & "|.|" & "GuidMakr.GUID|http://www.serverobjects.com|ServerObjects - GUID Maker (free)|0|" com = com & "|.|" & "ASPsvg.Process|http://www.serverobjects.com|ServerObjects - AspProc (free)|0|" com = com & "|.|" & "AspPing.Conn|http://www.serverobjects.com|ServerObjects - AspPing (free)|0|" com = com & "|.|" & "AspInet.FTP|http://www.serverobjects.com|ServerObjects - AspInet (free)|0|" com = com & "|.|" & "ASPExec.Execute|http://www.serverobjects.com|ServerObjects - AspExec (free)|0|" com = com & "|.|" & "AspCrypt.Crypt|http://www.serverobjects.com|ServerObjects - AspCryp (free)|9|" com = com & "|.|" & "Bible.Lookup|http://www.serverobjects.com|ServerObjects - AspBible (free)|0|" com = com & "|.|" & "SoftArtisans.SAFile|http://www.softartisans.com|SoftArtisians Fileup|3|" com = com & "|.|" & "SoftArtisans.FileManager|http://www.softartisans.com|SoftArtisians FileManager|6|" com = com & "|.|" & "SoftArtisans.XFRequest|http://www.softartisans.com|SoftArtisians X-File|6|" com = com & "|.|" & "SoftArtisans.FileManagerTX|http://www.softartisans.com|SoftArtisians FileManagerTX|6|" com = com & "|.|" & "SoftArtisans.SASessionPro.1|http://www.softartisans.com|SoftArtisans SA-Session Pro|0|" com = com & "|.|" & "SMUM.XCheck.1|http://www.softartisans.com|SoftArtisians Check (form validator)|11|" com = com & "|.|" & "Softartisans.Archive|http://www.softartisans.com|SoftArtisans Archive|6|" com = com & "|.|" & "SoftArtisans.SMTPMail|http://www.softartisans.com|SoftArtisans SMTPmail|1|" com = com & "|.|" & "Softartisans.ExcelWriter|http://www.softartisans.com|SoftArtisans Excel Writer|5|" com = com & "|.|" & "SoftArtisans.Groups|http://www.softartisans.com|SoftArtisans.Groups (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.Performance|http://www.softartisans.com|SoftArtisians.Performance (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.RAS|http://www.softartisans.com|SoftArtisans.RAS (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.Shares|http://www.softartisans.com|SoftArtisans.Shares (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.User|http://www.softartisans.com|SoftArtisans.User (SA-Admin)|9|" com = com & "|.|" & "Jmail.smtpmail|http://www.dimac.net|w3 JMail|1|" com = com & "|.|" & "w3sitetree.tree|http://www.dimac.net|w3 Site Tree : www.dimac.net|0|" com = com & "|.|" & "w3.upload|http://www.dimac.net|w3 Upload|3|" com = com & "|.|" & "w3.netutils|http://www.dimac.net|w3 Utils|0|" com = com & "|.|" & "Socket.TCP|http://www.dimac.net|w3 Sockets|0|" com = com & "|.|" & "w3.netutils|http://www.dimac.net|w3 NetDebug|0|" com = com & "|.|" & "Persits.MailSender|http://www.persits.com|Persits - ASPEmail|1|" com = com & "|.|" & "Persits.Upload.1|http://www.persits.com|Persits - ASPUpload|3|" com = com & "|.|" & "Persits.Jpeg|http://www.persits.com|Persits - AspJpeg|4|" com = com & "|.|" & "Persits.Grid|http://www.persits.com|Persits - AspGrid|0|" com = com & "|.|" & "Persits.AspUser|http://www.persits.com|Persits - AspUser|9|" com = com & "|.|" & "Persits.CryptoManager|http://www.persits.com|Persits - AspEncrypt|9|" com = com & "|.|" & "ADISCON.SimpleMail.1|http://www.simplemail.adiscon.com/en|SimpleMail|1|" com = com & "|.|" & "CalendarCom.CalendarStuff|http://www.devguru.com|DevGuru - dgcalendar|0|" com = com & "|.|" & "dgEncrypt.Key|http://www.devguru.com|DevGuru - dgEncrypt|9|" com = com & "|.|" & "dgFileUpload.dgUpload|http://www.devguru.com|DevGuru - dgFileup|3|" com = com & "|.|" & "dgReport.Report|http://www.devguru.com|DevGuru - dgReport|0|" com = com & "|.|" & "dgSort.QuickSort|http://www.devguru.com|DevGuru - dgSort|0|" com = com & "|.|" & "dgTree.Tree|http://www.devguru.com|DevGuru - dgTree|0|" com = com & "|.|" & "Dundas.Mailer|http://www.dundas.com|Dundas - ASPMailer|1|" com = com & "|.|" & "Dundas.PieChartServer.2|http://www.dundas.com|Dundas - Pie Chart Server Control|7|" com = com & "|.|" & "Dundas.Upload|http://www.dundas.com|Dundas - Upload|3|" com = com & "|.|" & "EasyMail.SMTP.5|http://www.quiksoft.com|Quicksoft - EasyMail (free)|1|" com = com & "|.|" & "AspPing.Conn|http://www.15seconds.com/component/pg000229.htm|ASP Ping|0|" com = com & "|.|" & "Dynu.CreditCard|http://www.dynu.com|Dynu CreditCard|10|11" com = com & "|.|" & "Dynu.DateTime|http://www.dynu.com|Dynu DateTime|0|" com = com & "|.|" & "Dynu.DNS|http://www.dynu.com|Dynu DNS|0|" com = com & "|.|" & "Dynu.Exec|http://www.dynu.com|Dynu Exec|0|" com = com & "|.|" & "Dynu.Email|http://www.dynu.com|Dynu Email|1|" com = com & "|.|" & "Dynu.Encrypt|http://www.dynu.com|Dynu Encrypt|9|" com = com & "|.|" & "Dynu.FileUtil|http://www.dynu.com|Dynu File|6|" com = com & "|.|" & "Dynu.FTP|http://www.dynu.com|Dynu FTP|0|6" com = com & "|.|" & "Dynu.HTTP|http://www.dynu.com|Dynu HTTP|0|" com = com & "|.|" & "Dynu.POP3|http://www.dynu.com|Dynu POP3|1|" com = com & "|.|" & "Dynu.Ping|http://www.dynu.com|Dynu Ping|0|" com = com & "|.|" & "Dynu.TCPSocket|http://www.dynu.com|Dynu TCPSocket|0|" com = com & "|.|" & "Dynu.StringUtil|http://www.dynu.com|Dynu String|0|" com = com & "|.|" & "Dynu.Upload|http://www.dynu.com|Dynu Upload|3|" com = com & "|.|" & "Dynu.Wait|http://www.dynu.com|Dynu Wait|0|" com = com & "|.|" & "Dynu.Whois|http://www.dynu.com|Dynu Whois|0|" com = com & "|.|" & "MP_Mikys_ASP.Password|http://www.mikys-asp.nykoping.net/Password|ASP Password|9|" com = com & "|.|" & "S3Weather.Current|http://www.softshell.net|S3 Weather Component (free)|0|" com = com & "|.|" & "AuthNetSSLConnect.SSLPost|http://www.authorize.net|Authorize.Net Transaction COM (free)|10|11" com = com & "|.|" & "HexValidEmail.Connection|http://www.hexillion.com|Hexillion - HexValidEmail|1|11" com = com & "|.|" & "Hexillion.HexIcmp|http://www.hexillion.com|Hexillion - HexIcmp|0|" com = com & "|.|" & "Hexillion.HexLookup|http://www.hexillion.com|Hexillion - HexLookup|0|" com = com & "|.|" & "Hexillion.HexTcpQuery|http://www.hexillion.com|Hexillion - HexTcpQuery|0|" com = com & "|.|" & "HexDns.Connection|http://www.hexillion.com|Hexillion - HexDSN|0|" com = com & "|.|" & "ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - ocxQmail|1|" com = com & "|.|" & "OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks - OCXHttp|0|" com = com & "|.|" & "ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - OCXQMail|1|" com = com & "|.|" & "VASPTV.ASPTreeView|http://www.visualasp.com|VisualASP - TreeView|0|" com = com & "|.|" & "VASPLV.ASPListView|http://www.visualasp.com|VisualASP - ListView|0|" com = com & "|.|" & "VASPMV.ASPMonthView|http://www.visualasp.com|VisualASP - MonthView|0|" com = com & "|.|" & "VASPTB.ASPTabView|http://www.visualasp.com|VisualASP - TabView|0|" com = com & "|.|" & "ASPWordToy.WordToy|http://www.asptoys.com|ASP Toys - WordToy (Word Converter)|6|" com = com & "|.|" & "ASPTabToy.TabToy|http://www.asptoys.com|ASP Toys - TabToy|0|" com = com & "|.|" & "aspZipCodeToy.ZipCodeToy|http://www.asptoys.com|ASP Toys - ASP ZipCodeToy|0|11" com = com & "|.|" & "ASPCryptToy.CryptToy|http://www.asptoys.com|ASP Toys - CryptToy|9|" com = com & "|.|" & "Convert.t2h|http://members.home.net/pjsteele/asp|CONVERT - string/html/text manipulation (free)|0|" com = com & "|.|" & "APDocConv.Object|http://www.activepdf.com|activePDF - DocConverter|5|" com = com & "|.|" & "APWebGrabber.Object|http://www.activepdf.com|activePDF - WebGrabber|5|" com = com & "|.|" & "APServer.Object|http://www.activepdf.com|activePDF - activePDF Server|5|" com = com & "|.|" & "APSpool.Object|http://www.activepdf.com|activePDF - Spooler|5|" com = com & "|.|" & "APToolkit.Object|http://www.activepdf.com|activePDF - Toolkit|5|" com = com & "|.|" & "shotgraph.image|http://www.shotgraph.com|Shot Graph|7|" com = com & "|.|" & "IntrChart.Chart|http://www.compsysaus.com.au|IntrChart|7|" com = com & "|.|" & "IntrSQL.Query|http://www.compsysaus.com.au|IntrSQL|0|" com = com & "|.|" & "IntrPWD.Validate|http://www.compsysaus.com.au|IntrPWD|9|" com = com & "|.|" & "IntrCard.Credit|http://www.compsysaus.com.au|IntrCard|0|11" com = com & "|.|" & "AspSmartImage.SmartImage|http://www.aspsmart.com|ASP Smart - aspSmartImage|4|" com = com & "|.|" & "AspSmartChat.SmartChat|http://www.aspsmart.com|ASP Smart - aspSmartChat|0|" com = com & "|.|" & "AspSmartFile.SmartFile|http://www.aspsmart.com|ASP Smart - aspSmartFile|6|" com = com & "|.|" & "aspSmartMenu.SmartMenuPopUp|http://www.aspsmart.com|ASP Smart - aspSmartMenu|0|" com = com & "|.|" & "AspSmartDate.SmartDate|http://www.aspsmart.com|ASP Smart - aspSmartDate|0|" com = com & "|.|" & "AspSmartUpload.SmartUpload|http://www.aspsmart.com|ASP Smart - aspSmartUpload|3|" com = com & "|.|" & "aspSmartMail.SmartMail|http://www.aspsmart.com|ASP Smart - aspSmartMail|1|" com = com & "|.|" & "aspSmartCache.SmartCache|http://www.aspsmart.com|ASP Smart - aspSmartCache|0|" com = com & "|.|" & "xAuthorize.Charge|http://www.xauthorize.com|xAuthorize CC|10|11" com = com & "|.|" & "acDesktop.Desktop|http://www.activecomponents.nu|acDesktop|0|" com = com & "|.|" & "acNetwork.DNS|http://www.activecomponents.nu|acNetwork|0|" com = com & "|.|" & "acSMTP.Smtp|http://www.activecomponents.nu|acSMTP SSL|9|" com = com & "|.|" & "Temperature.Conversion|http://asp.myscripting.com/activextemp.asp|Temperature Conversion|0|" com = com & "|.|" & "cyScape.browserObj|http://www.cyscape.com|BrowserHawk|2|11" com = com & "|.|" & "dkQmail.Qmail||dkQMail|1|" com = com & "|.|" & "Geocel.Mailer|http://www.geocel.com|GeoCel|1|" com = com & "|.|" & "iismail.iismail.1||IISMail|1|" com = com & "|.|" & "SmtpMail.SmtpMail.1||SMTP|1|" com = com & "|.|" & "OpenX2.Connection|http://www.openx.ca|OpenX|1|" com = com & "|.|" & "ABMailer.Mailman|http://www.absoftwarex.com/abmailer|ABMailer|1|" com = com & "|.|" & "c2geread.Message|http://www.componentstogo.com|C2GEread|1|" com = com & "|.|" & "C2G.SCM|http://www.componentstogo.com|C2GSCM|0|8" com = com & "|.|" & "C2GSCM.Service|http://www.componentstogo.com|C2GSCM|8|0" com = com & "|.|" & "C2G.SCAN|http://www.componentstogo.com|C2GSCAN|0|" com = com & "|.|" & "C2G.whois|http://www.componentstogo.com|C2GWHOIS |0|" com = com & "|.|" & "c2g.http|http://www.componentstogo.com|C2GHttp |0|" com = com & "|.|" & "C2G.Ping|http://www.componentstogo.com|C2GPing|0|" com = com & "|.|" & "C2G.Tracert|http://www.componentstogo.com|C2GTracert|0|" com = com & "|.|" & "ANUPLOAD.OBJ|http://www.adminsystem.net/webapp/popcom|ANPOP|1|" com = com & "|.|" & "ASPXP.Mail|http://aspxp.com/free_stuff/aspxpmail|ASPXPMail (free)|1|" com = com & "|.|" & "ActiveMessenger.Message|http://www.infomentum.com|ActiveMessenger|1|" com = com & "|.|" & "ActiveFile.Post|http://www.infomentum.com|ActiveFile|3|" com = com & "|.|" & "ActiveNavigator.Toolbar|http://www.infomentum.com|ActiveNavigator|0|" com = com & "|.|" & "ActiveProfile.Profile|http://www.infomentum.com|ActiveProfile|2|9" com = com & "|.|" & "DartZip.Zip.1|http://www.dart.com|Dart Zip Compression Tool|6|" com = com & "|.|" & "Dart.Ftp.1|http://www.dart.com|Dart FTP Tool|6|0" com = com & "|.|" & "Dart.Pop.1|http://www.dart.com|Dart POP Mail|1|" com = com & "|.|" & "Dart.Ping.1|http://www.dart.com|Dart Ping|0|" com = com & "|.|" & "Dart.Dns.1|http://www.dart.com|Dart DNS|0|" com = com & "|.|" & "Dart.Smtp.1|http://www.dart.com|Dart SMTP|1|" com = com & "|.|" & "Dart.Telnet.1|http://www.dart.com|Dart PowerTCP Telnet Tool|0|" com = com & "|.|" & "Dart.Http.1|http://www.dart.com|Dart HTTP|0|" com = com & "|.|" & "Dart.Tcp.1|http://www.dart.com|Dart TCP|0|" com = com & "|.|" & "Dart.WebPage.1|http://www.dart.com|Dart WebPage|0|" com = com & "|.|" & "Dart.WebASP.1|http://www.dart.com|Dart ASP|0|" com = com & "|.|" & "Dart.Message.1|http://www.dart.com|Dart Message|0|" com = com & "|.|" & "Dart.Manager.1|http://www.dart.com|Dart Manager|0|" com = com & "|.|" & "quicktab.quicktabs|http://www.webintel.net|Quicktab|0|" com = com & "|.|" & "waspzip.waspzip|http://www.webintel.net|Wasp Zip|6|5" com = com & "|.|" & "easyBarCode.aspBarCode|http://www.mitdata.com|aspEasyBarCode|7|0" com = com & "|.|" & "aspZip.EasyZIP|http://www.mitdata.com|aspEasyZIP|6|5" com = com & "|.|" & "aspPDF.EasyPDF|http://www.mitdata.com|aspEasyPDF|5|6" com = com & "|.|" & "aspCrypt.EasyCRYPT|http://www.mitdata.com|aspEasyCRYPT|9|" com = com & "|.|" & "objBarGraph.DrawChart|http://www.livesoup.com/bargraph.asp|BarGraph (free)|7|" com = com & "|.|" & "LyfUpload.UploadFile|http://www.21jsp.com|LyfUpload (free)|3|" com = com & "|.|" & "lyfimage.image|http://www.21jsp.com|LyfImage (free)|4|7" com = com & "|.|" & "ASPControlHost.Host|http://release-systems.8m.com/asphost.html|ASPControlHost|7|4" com = com & "|.|" & "GSServer.GSServerProp|http://www.graphicsserver.com|Graphics Server|4|7" com = com & "|.|" & "ASPPicture.Picture|http://www.unchanged.net|ASPPicture|4|" com = com & "|.|" & "COMobjectsNET.IconGrabber|http://www.comobjects.net|COMobjects.NET Icon Grabber|4|" com = com & "|.|" & "COMobjects.NET.PictureProcessor|http://www.comobjects.net|COMobjects.NET Picture Processor|4|" com = com & "|.|" & "COMobjectsNET.PictureGalleryPro|http://www.comobjects.net|COMobjects.NET Picture Gallery Pro|4|" com = com & "|.|" & "COMobjectsNET.Colorizer|http://www.comobjects.net|COMobjects.NET Colorizer|4|" com = com & "|.|" & "COMobjectsNET.PieChart|http://www.comobjects.net|COMobjects.NET 3D Pie Chart|7|4" com = com & "|.|" & "ChartDirector.API|http://www.advsofteng.com|ChartDirector|7|" com = com & "|.|" & "Stonebroom.ASPointer|http://www.stonebroom.com|Stonebroom.ASPointer|13|5" com = com & "|.|" & "Stonebroom.ASP2XML|http://www.stonebroom.com|Stonebroom.ASP2XML|13|5" com = com & "|.|" & "Stonebroom.RegEx|http://www.stonebroom.com|Stonebroom.RegEx|0|" com = com & "|.|" & "Stonebroom.RemoteZip|http://www.stonebroom.com|Stonebroom.RemoteZip|5|6" com = com & "|.|" & "Stonebroom.SaveForm|http://www.stonebroom.com|Stonebroom.SaveForm|12|" com = com & "|.|" & "Stonebroom.ServerZip|http://www.stonebroom.com|Stonebroom.ServerZip|5|6" com = com & "|.|" & "Stonebroom.XSLTransform|http://www.stonebroom.com|Stonebroom.XSLTransform|13|5" com = com & "|.|" & "OpenX.DBMail|http://www.openx.ca|OpenX DBMail|1|12" com = com & "|.|" & "com.comsoltech.CGI|http://www.comsoltech.com|com.comsoltech.CGI (free)|12|" com = com & "|.|" & "Datafun.FormBoy|http://www.datafun.net|FormBoy|12|10" com = com & "|.|" & "AddressTools.ZIPCheck|http://www.addresstools.com|AddressTools - ZIPCheck|11|12" com = com & "|.|" & "AddressTools.EmailCheck|http://www.addresstools.com|AddressTools - EmailCheck|11|12" com = com & "|.|" & "VisualSoft.Mail.1|http://www.visualmart.com|VisualSoft Mail|1|" com = com & "|.|" & "VisualSoft.BLOWFISHCrypt.1|http://www.visualmart.com|VisualSoft Crypt|9|" com = com & "|.|" & "VisualSoft.FTP.1|http://www.visualmart.com|VisualSoft FTP|6|0" com = com & "|.|" & "VisualSoft.HTTP.1|http://www.visualmart.com|VisualSoft HTTP|2|0" com = com & "|.|" & "VisualSoft.Chart.1|http://www.visualmart.com|VisualSoft Chart|7|" com = com & "|.|" & "VisualSoft.DMXML.1|http://www.visualmart.com|VisualSoft XMLPro|13|" com = com & "|.|" & "VisualSoft.DataAdmin.1|http://www.visualmart.com|VisualSoft DataAdmin|0|" com = com & "|.|" & "QwerkSoft.FormSlam|http://www.qwerksoft.com|Form Slam|12|11" com = com & "|.|" & "MSWC.NextLink|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp7pmc.asp|Microsoft Content Linking Component|0|" com = com & "|.|" & "MSWC.BrowserType|http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/html/psdk/asp/comp3xx0.asp|Microsoft Browser Capability|2|" com = com & "|.|" & "MSWC.ContentRotator|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp09dg.asp|Microsoft Content Rotator|0|" com = com & "|.|" & "MSWC.AdRotator|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp59f8.asp|Microsoft Ad Rotator|0|" com = com & "|.|" & "MSWC.PermissionChecker|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp3hf8.asp|Microsoft Permission Checker Component|0|" com = com & "|.|" & "MSWC.Status|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp1qt0.asp|Microsoft Status Component|0|" com = com & "|.|" & "MSWC.Tools|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp7g8k.asp|Microsoft Tools Component|0|" com = com & "|.|" & "MSWC.PageCounter|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp00vo.asp|Microsoft Page Counter Component|0|" com = com & "|.|" & "MSWC.IISLog|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp6i5w.asp|Microsoft Logging Utility Component|0|" com = com & "|.|" & "MSXML2.ServerXMLHTTP|http://msdn.microsoft.com/library/en-us/xmlsdk30/htm/xmobjxmldomserverxmlhttp_using_directly.asp|Microsoft ServerXMLHTTP|13|" com = com & "|.|" & "Microsoft.XMLDOM|http://www.microsoft.com|Microsoft XMLDOM Component|13|" com = com & "|.|" & "Microsoft.XMLHTTP|http://www.microsoft.com|Microsoft XMLHTTP Component|13|" com = com & "|.|" & "Scripting.FileSystemObject|http://www.microsoft.com|MicrosoftFileSystem Object|6|" com = com & "|.|" & "WScript.Shell|http://www.microsoft.com|Windows Script Shell|0|" com = com & "|.|" & "WScript.Network|http://www.microsoft.com|Windows Script Network|0|" com = com & "|.|" & "ADODB.Connection|http://www.microsoft.com|ADODB.Connection|0|" com = com & "|.|" & "ADODB.Command|http://www.microsoft.com|ADODB.Command|0|" com = com & "|.|" & "ADODB.Recordset|http://www.microsoft.com|ADODB.Recordset|0|" com = com & "|.|" & "Scripting.Dictionary|http://www.microsoft.com|Scripting.Dictionary|0|" com = com & "|.|" & "SiteAdmin.AdminTools|http://components.sitetown.com|SiteSecurity|9|" com = com & "|.|" & "SiteSecurity.Login|http://components.sitetown.com|SiteSecurity|9|" com = com & "|.|" & "FileDownload.Manager|http://components.sitetown.com|File Download|6|0" com = com & "|.|" & "EasyDb.Database|http://components.sitetown.com|Easy DB|0|" com = com & "|.|" & "AbsoluteHttp.Conn|http://www.speeq.com|AbsoluteHTTP|0|" com = com & "|.|" & "ASPCharge.CC|http://www.bluesquirrel.com|A$PCharge|10|11" com = com & "|.|" & "ProjectDisplay.Charts|http://www.aspkey.com|ASPkey ProjectDisplay|0|" com = com & "|.|" & "IPWorksASP.SOAP|http://www.nsoftware.com|IP Works Soap|13|" com = com & "|.|" & "IPWorksASP.FileMailer|http://www.nsoftware.com|IP Works FileMailer|1|6" com = com & "|.|" & "IPWorksASP.FTP|http://www.nsoftware.com|IP Works FTP|0|" com = com & "|.|" & "IPWorksASP.HTMLMailer|http://www.nsoftware.com|IP Works HTMLMailer|1|" com = com & "|.|" & "IPWorksASP.HTTP|http://www.nsoftware.com|IP Works HTTP|13|0" com = com & "|.|" & "IPWorksASP.ICMPPort|http://www.nsoftware.com|IP Works ICMPPort|0|" com = com & "|.|" & "IPWorksASP.IMAP|http://www.nsoftware.com|IP Works IMAP|0|" com = com & "|.|" & "IPWorksASP.IPInfo|http://www.nsoftware.com|IP Works IPInfo|0|" com = com & "|.|" & "IPWorksASP.IPPort|http://www.nsoftware.com|IP Works IPPort|0|" com = com & "|.|" & "IPWorksASP.LDAP|http://www.nsoftware.com|IP Works LDAP|0|" com = com & "|.|" & "IPWorksASP.MCast|http://www.nsoftware.com|IP Works MCast|0|" com = com & "|.|" & "IPWorksASP.MIME|http://www.nsoftware.com|IP Works MIME|1|" com = com & "|.|" & "IPWorksASP.MX|http://www.nsoftware.com|IP Works MX|1|" com = com & "|.|" & "IPWorksASP.NetClock|http://www.nsoftware.com|IP Works NetClock|0|" com = com & "|.|" & "IPWorksASP.NetCode|http://www.nsoftware.com|IP Works NetCode|0|" com = com & "|.|" & "IPWorksASP.NetDial|http://www.nsoftware.com|IP Works NetDial|0|" com = com & "|.|" & "IPWorksASP.NNTP|http://www.nsoftware.com|IP Works NNTP|0|" com = com & "|.|" & "IPWorksASP.Ping|http://www.nsoftware.com|IP Works Ping|0|" com = com & "|.|" & "IPWorksASP.POP|http://www.nsoftware.com|IP Works POP|1|" com = com & "|.|" & "IPWorksASP.RCP|http://www.nsoftware.com|IP Works RCP|6|0" com = com & "|.|" & "IPWorksASP.Rexec|http://www.nsoftware.com|IP Works Rexec|0|" com = com & "|.|" & "IPWorksASP.Rshell|http://www.nsoftware.com|IP Works Rshell|0|" com = com & "|.|" & "IPWorksASP.SMTP|http://www.nsoftware.com|IP Works SMTP|1|" com = com & "|.|" & "IPWorksASP.SNMP|http://www.nsoftware.com|IP Works SNMP|1|0" com = com & "|.|" & "IPWorksASP.SNPP|http://www.nsoftware.com|IP Works SNPP|13|0" com = com & "|.|" & "IPWorksASP.Telnet|http://www.nsoftware.com|IP Works Telnet|0|" com = com & "|.|" & "IPWorksASP.TFTP|http://www.nsoftware.com|IP Works TFTP|0|" com = com & "|.|" & "IPWorksASP.TraceRoute|http://www.nsoftware.com|IP Works TraceRoute|0|" com = com & "|.|" & "IPWorksASP.UDPPort|http://www.nsoftware.com|IP Works UDPPort|0|" com = com & "|.|" & "IPWorksASP.WebForm|http://www.nsoftware.com|IP Works WebForm|12|" com = com & "|.|" & "IPWorksASP.WebUpload|http://www.nsoftware.com|IP Works WebUpload|3|" com = com & "|.|" & "IPWorksASP.Whois|http://www.nsoftware.com|IP Works Whois|0|" com = com & "|.|" & "IPWorksASP.XMLp|http://www.nsoftware.com|IP Works XMLp|13|" 'com = com & "|.|" & "||||" 'com = com & "|.|" & "||||" com = Split(com, "|.|") cat = "Miscelanea" cat = cat & "|Email" cat = cat & "|Browser" cat = cat & "|Upload" cat = cat & "|Imagem" cat = cat & "|Documentação" cat = cat & "|Manipulação de Arquivos" cat = cat & "|Gráficos " cat = cat & "|Gerenciamento de Usuários" cat = cat & "|Usuários & Segurança" cat = cat & "|E-Commerce" cat = cat & "|Validação" cat = cat & "|Formulários" cat = cat & "|XML" cat = Split(cat, "|") if (isnumeric(request("show"))) then show = CInt(request("show")) else show = 1 if (show > 3) then show = 1 if (isnumeric(request("showCat")) AND request("showCat") <> "") then showCat = CInt(request("showCat")) else showCat = "all" if isNumeric(showCat) then if (showCat > UBound(cat)) then showCat = "all" end if checkVersion = getHTML("http://www.pensaworks.com/tutorials/com_version.asp") if (checkVersion <> lastUpdate) then newVersion = True %> <HTML> <HEAD> <TITLE>ASP Component Test - http://www.pensaworks.com</TITLE> <script language=JavaScript> <!-- function BringUpWindow(webpage) { var url = webpage; var hWnd = window.open(url,"Mailer_Popup","width=425,height=325,resizable=yes,scrollbars=yes,status=yes"); if (window.focus) {hWnd.focus()} if (hWnd != null) { if (hWnd.opener == null) { hWnd.opener = self; window.name = "home"; hWnd.location.href=url; } } else { } } // --> </SCRIPT> </HEAD> <body bgcolor="#ffffff" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0"> <% if request("comID") <> "" then comID = request("comID") comDetails = Split(com(comID), "|") comCreate = comDetails(0) comURL = comDetails(1) comName = comDetails(2) comCat = comDetails(3) comCat2 = comDetails(4) %> <table border="0" cellpadding="2" cellspacing="0" width="100%"> <tr> <td bgcolor="#000080"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">Detalhes do Componente</font></b></font></td> </tr> </table> <% Set b = New ProgIDInfo Set a = b.LoadProgID(comCreate) if a.Description <> "" then %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <b>Componente:</b> <%=comName%><br> <b>Website:</b> <% if comURL <> "" then %><a href="<%=comURL%>" target="_blank"><%=comURL%></a><% end if %><br> <b>Categoria(s):</b> <%=cat(comCat)%><% if comCat2 <> "" then %> | <%=cat(comCat2)%><% end if %><br> <b>Descrição:</b> <%= a.Description %><br> <b>Nome da DLL:</b> <%=a.DLLName%><br> <b>ProgID:</b> <%=a.ProgID%><br> <b>ClsID:</b> <%=a.ClsID%><br> <b>Path:</b> <%=a.Path%><br> <b>TypeLib:</b> <%=a.TypeLib%><br> <b>Versão:</b> <%=a.Version%><br> </font> <% else %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Informação não Encontrada para o componente:</b> <%=comName%></font> <% end if %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><p align="center"><a href=# onClick="self.close();"><b>Fechar Janela</b></a></p> </font> <table border="0" width="98%" cellpadding="2" align="center"> <tr> <td width="200%"> <hr width="90%"> </td> </tr> <tr> <td width="25%" valign="bottom"> <p align="right"><%=constAutor%></p> </td> </tr> </table> <% else %> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr> <td width="100%" bgcolor="#000080"> <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="4" color="mintcream">ASP Component Test</font></b></div> </td> </tr> </table> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <p align="center"> Este código (Component Test) verifica simplesmente os componentes instalados observando o Objeto que o componente usa. Não garante que o componente está configurado para trabalhar corretamente. Se você tiver quaisquer pergunta a respeito de um componente especifíco, você pode contatar a empresa fabricante do componente. Erros, pedido ou comentário referente ao código devem ser feitos ao criador: <a href="mailto:JHarris@pensaworks.com">James Harris</a>. Última atualização feita em <%=lastUpdate%>. </p> </font> <p></p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <p align="center"><b>Aguarde... Verificando <%=(UBound(com) + 1)%> componentes. Isto pode demorar alguns segundos.</b></p> </font> <table border="0" align="center" cellspacing="2" cellpadding="4"> <tr> <td colspan="5"> <form name="ShowCOMs" method="post" action="<%=Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1)%>"> <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Filtrar:</font></b> <select name="show"> <option value="1"<% if (show = 1) then response.write " SELECTED"%>>Ver todos COMs</option> <option value="2"<% if (show = 2) then response.write " SELECTED"%>>Instalados COMs</option> <option value="3"<% if (show = 3) then response.write " SELECTED"%>>Não Instalados COMs</option> </select> <b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Por:</font></b> <select name="showCat"> <option value="all"<% if (lcase(showCat) = "all") then response.write " SELECTED"%>>Todas Categorias</option> <% for i = 0 to UBound(cat) %> <option value="<%=i%>"<% if (showCat = i) then response.write " SELECTED"%>><%=cat(i)%></option> <% next %> </select> <input type="submit" name="Submit" value="Submit"> </div> </form> </td> </tr> <tr> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">#</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Categoria</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Status</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Detalhes</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Componente</font></b></td> </tr> <% for i = 0 to UBound(com) comDetails = split(com(i), "|") display = false display2 = false comCreate = comDetails(0) comURL = comDetails(1) comName = comDetails(2) comCat = CInt(comDetails(3)) comCat2 = CInt(comDetails(4)) installed = IsObjInstalled(comCreate) if show = 2 then if (NOT Installed) then display = false else display = true elseif show = 3 then if (NOT Installed) then display = true else diusplay = false else display = true end if if isnumeric(showCat) then if (comCat = showCat or comCat2 = showCat) then display2 = true else display2 = false else display2 = true end if %> <% if (display AND display2) then onNum = onNum + 1 %> <% if (onNum Mod 2) Then %> <tr> <% else %> <tr bgcolor="#CCCCCC"> <% end If %> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=(onNum)%></b></font></td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% if IsNumeric(showCat) then %><%=cat(showCat)%><% else %><%=cat(comCat)%><% end if %></font></td> <td> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> <% if NOT installed then %> <font color="#FF0000">Não Instalado</font> <% else installedCOMs = installedComs + 1 %> <font color="#009933">Instalado</font> <% end if %> </b></font></div> </td> <td> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% if NOT installed then %> Não Avaliado <% else %> <a href="Javascript:BringUpWindow('<%=Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1)%>?comID=<%=i%>')">COM Detalhes</a> <% end if %> </font></div> </td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% if comURL <> "" then %><a href="<%=comURL%>" target="_blank"><%=comName%></a><% else %><%=comName%><% end if %></font></td> </tr> <% end if installed = "" : comCreate = "" : comURL = "" : comName = "" : comCat = "" : comCat2 = "" next response.flush() %> <% if onNum = 0 then %> <tr> <td colspan="5"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Você não tem nenhum componente instalado</b></font></div> </td> </tr> <% end if %> </table> <div align="center"> <p> </p> <p><font size="3" face="Verdana, Arial, Helvetica, sans-serif">Você tem um total de <b><%=installedCOMs%></b> COMs instalados num total de <b><%=onNum%></b> verificados.<br> Atualmente, este certificado verifica se há <b><%=(UBound(com) + 1)%></b> componentes diferentes</font></p> </div> <table border="0" width="98%" cellpadding="2" align="center"> <tr> <td width="200%"> <hr width="90%"> </td> </tr> <tr> <td width="25%" valign="bottom"> <p align="right"><%=constAutor%></p> </td> </tr> </table> <% end if %> </BODY> </HTML> <% function IsObjInstalled(strClassString) IsObjInstalled = false : Err = 0 Set testObj = Server.CreateObject(strClassString) if (0 = Err) then IsObjInstalled = true else IsObjInstalled = false Set testObj = nothing end function Class Program Public Description, ClsID, ProgID, Path, TypeLib, Version, DLLName End Class Class ProgIDInfo Private WshShell, sCVProgID, oFSO Private Sub Class_Initialize() On Error Resume Next set oFSO = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") End Sub Private Sub Class_Terminate() If IsObject(WshShell) Then Set WshShell = Nothing If IsObject(oFSO) Then set oFSO = Nothing End Sub Private Function IIf(byval conditions, byval trueval, byval falseval) if cbool(conditions) then IIf = trueval else IIf = falseval End Function Public Function LoadProgID(ByVal sProgramID) Dim sTmpProg, oTmp, sRegBase, sDesc, sClsID Dim sPath, sTypeLib, sProgID, sVers, sPathSpec If IsObject(WshShell) Then On Error Resume Next sCVProgID = WshShell.RegRead("HKCR\" & _ sProgramID & "\CurVer\") sTmpProg = IIf(Err.Number = 0, sCVProgID, sProgramID) sRegBase = "HKCR\" & sTmpProg sDesc = WshShell.RegRead(sRegBase & "\") sClsID = WshShell.RegRead(sRegBase & "\clsid\") sRegBase = "HKCR\CLSID\" & sClsID sPath = WshShell.RegRead(sRegBase & "\InprocServer32\") sPath = WshShell.ExpandEnvironmentStrings(sPath) sTypeLib = WshShell.RegRead(sRegBase & "\TypeLib\") sProgID = WshShell.RegRead(sRegBase & "\ProgID\") sVers = oFSO.getFileVersion(sPath) sPathSpec = right(sPath, len(sPath) - _ instrrev(sPath, "\")) Set oTmp = New Program oTmp.Description = sDesc oTmp.ClsID = IIf(sClsID <> "", sClsID, "undetermined") oTmp.Path = IIf(sPath <> "", sPath, "undetermined") oTmp.TypeLib = IIf(sTypeLib <> "", _ sTypeLib, "undetermined") oTmp.ProgID = IIf(sProgID <> "", _ sProgID, "undetermined") oTmp.DLLName = IIf(sPathSpec <> "", _ sPathSpec, "undetermined") oTmp.Version = IIf(sVers <> "", sVers, "undetermined") Set LoadProgID = oTmp Else Set LoadProgID = Nothing End If End Function End Class function getHTML(strURL) dim objXMLHTTP, strReturn Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send getHTML = objXMLHTTP.responseText Set objXMLHTTP = Nothing end function %>Esse codigo, eu peguei no fórum Freecode.Portanto, os direitos autoriais ficam para quem criou, que no script deve dizer.Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
dark0
Código que Verifica os Componentes instalados no Servidor.
O melhor código que eu já vi. Lista vários componentes, e ainda possibilita selecionar categorias e tudo mais.
Vale a pena conferir.
<%@Language="VBScript"%> <% on error resume next response.buffer = True server.scripttimeout = 1000 installedCOMs = 0 onNum = 0 lastUpdate = "1/8/2002" constAutor = "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>© 2001, <a href=""mailto:JHarris@pensaworks.com"">James Harris.</a> Todos direitos reservados.</b><br>Tradução by <a href=""http://www.freecode.com.br"" target=""_blank"">Freecode.com.br</a>.</b>" ' COMPONENTES ' formatação: comObject|comURL|comName|comCategoria|comCategoria2 com = "CDONTS.NewMail|http://www.microsoft.com|CDONTS (free)|1|" com = com & "|.|" & "SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPMail|1|" com = com & "|.|" & "SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPQMail|1|" com = com & "|.|" & "AspImage.Image|http://www.serverobjects.com|Server Objects - ASPImage|4|" com = com & "|.|" & "POP3svg.Mailer|http://www.serverobjects.com|Server Objects - ASPPop3|1|" com = com & "|.|" & "AspNNTP.Conn|http://www.serverobjects.com|Server Objects - AspNNTP|0|" com = com & "|.|" & "AspFile.FileObj|http://www.serverobjects.com|ServerObjects - AspFile|6|" com = com & "|.|" & "AspConv.Expert|http://www.serverobjects.com|ServerObjects - AspConv|0|" com = com & "|.|" & "AspHTTP.Conn|http://www.serverobjects.com|ServerObjects - AspHTTP|0|" com = com & "|.|" & "AspDNS.Lookup|http://www.serverobjects.com|ServerObjects - AspDNS|0|" com = com & "|.|" & "AspMX.Lookup|http://www.serverobjects.com|ServerObjects - AspMX|1|" com = com & "|.|" & "WaitFor.Comp|http://www.serverobjects.com|ServerObjects - Waitfor (free)|0|" com = com & "|.|" & "LastMod.FileObj|http://www.serverobjects.com|ServerObjects - Last Modified (free)|6|" com = com & "|.|" & "ImgSize.Check|http://www.serverobjects.com|ServerObjects - Image Size (free)|4|" com = com & "|.|" & "GuidMakr.GUID|http://www.serverobjects.com|ServerObjects - GUID Maker (free)|0|" com = com & "|.|" & "ASPsvg.Process|http://www.serverobjects.com|ServerObjects - AspProc (free)|0|" com = com & "|.|" & "AspPing.Conn|http://www.serverobjects.com|ServerObjects - AspPing (free)|0|" com = com & "|.|" & "AspInet.FTP|http://www.serverobjects.com|ServerObjects - AspInet (free)|0|" com = com & "|.|" & "ASPExec.Execute|http://www.serverobjects.com|ServerObjects - AspExec (free)|0|" com = com & "|.|" & "AspCrypt.Crypt|http://www.serverobjects.com|ServerObjects - AspCryp (free)|9|" com = com & "|.|" & "Bible.Lookup|http://www.serverobjects.com|ServerObjects - AspBible (free)|0|" com = com & "|.|" & "SoftArtisans.SAFile|http://www.softartisans.com|SoftArtisians Fileup|3|" com = com & "|.|" & "SoftArtisans.FileManager|http://www.softartisans.com|SoftArtisians FileManager|6|" com = com & "|.|" & "SoftArtisans.XFRequest|http://www.softartisans.com|SoftArtisians X-File|6|" com = com & "|.|" & "SoftArtisans.FileManagerTX|http://www.softartisans.com|SoftArtisians FileManagerTX|6|" com = com & "|.|" & "SoftArtisans.SASessionPro.1|http://www.softartisans.com|SoftArtisans SA-Session Pro|0|" com = com & "|.|" & "SMUM.XCheck.1|http://www.softartisans.com|SoftArtisians Check (form validator)|11|" com = com & "|.|" & "Softartisans.Archive|http://www.softartisans.com|SoftArtisans Archive|6|" com = com & "|.|" & "SoftArtisans.SMTPMail|http://www.softartisans.com|SoftArtisans SMTPmail|1|" com = com & "|.|" & "Softartisans.ExcelWriter|http://www.softartisans.com|SoftArtisans Excel Writer|5|" com = com & "|.|" & "SoftArtisans.Groups|http://www.softartisans.com|SoftArtisans.Groups (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.Performance|http://www.softartisans.com|SoftArtisians.Performance (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.RAS|http://www.softartisans.com|SoftArtisans.RAS (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.Shares|http://www.softartisans.com|SoftArtisans.Shares (SA-Admin)|9|" com = com & "|.|" & "SoftArtisans.User|http://www.softartisans.com|SoftArtisans.User (SA-Admin)|9|" com = com & "|.|" & "Jmail.smtpmail|http://www.dimac.net|w3 JMail|1|" com = com & "|.|" & "w3sitetree.tree|http://www.dimac.net|w3 Site Tree : www.dimac.net|0|" com = com & "|.|" & "w3.upload|http://www.dimac.net|w3 Upload|3|" com = com & "|.|" & "w3.netutils|http://www.dimac.net|w3 Utils|0|" com = com & "|.|" & "Socket.TCP|http://www.dimac.net|w3 Sockets|0|" com = com & "|.|" & "w3.netutils|http://www.dimac.net|w3 NetDebug|0|" com = com & "|.|" & "Persits.MailSender|http://www.persits.com|Persits - ASPEmail|1|" com = com & "|.|" & "Persits.Upload.1|http://www.persits.com|Persits - ASPUpload|3|" com = com & "|.|" & "Persits.Jpeg|http://www.persits.com|Persits - AspJpeg|4|" com = com & "|.|" & "Persits.Grid|http://www.persits.com|Persits - AspGrid|0|" com = com & "|.|" & "Persits.AspUser|http://www.persits.com|Persits - AspUser|9|" com = com & "|.|" & "Persits.CryptoManager|http://www.persits.com|Persits - AspEncrypt|9|" com = com & "|.|" & "ADISCON.SimpleMail.1|http://www.simplemail.adiscon.com/en|SimpleMail|1|" com = com & "|.|" & "CalendarCom.CalendarStuff|http://www.devguru.com|DevGuru - dgcalendar|0|" com = com & "|.|" & "dgEncrypt.Key|http://www.devguru.com|DevGuru - dgEncrypt|9|" com = com & "|.|" & "dgFileUpload.dgUpload|http://www.devguru.com|DevGuru - dgFileup|3|" com = com & "|.|" & "dgReport.Report|http://www.devguru.com|DevGuru - dgReport|0|" com = com & "|.|" & "dgSort.QuickSort|http://www.devguru.com|DevGuru - dgSort|0|" com = com & "|.|" & "dgTree.Tree|http://www.devguru.com|DevGuru - dgTree|0|" com = com & "|.|" & "Dundas.Mailer|http://www.dundas.com|Dundas - ASPMailer|1|" com = com & "|.|" & "Dundas.PieChartServer.2|http://www.dundas.com|Dundas - Pie Chart Server Control|7|" com = com & "|.|" & "Dundas.Upload|http://www.dundas.com|Dundas - Upload|3|" com = com & "|.|" & "EasyMail.SMTP.5|http://www.quiksoft.com|Quicksoft - EasyMail (free)|1|" com = com & "|.|" & "AspPing.Conn|http://www.15seconds.com/component/pg000229.htm|ASP Ping|0|" com = com & "|.|" & "Dynu.CreditCard|http://www.dynu.com|Dynu CreditCard|10|11" com = com & "|.|" & "Dynu.DateTime|http://www.dynu.com|Dynu DateTime|0|" com = com & "|.|" & "Dynu.DNS|http://www.dynu.com|Dynu DNS|0|" com = com & "|.|" & "Dynu.Exec|http://www.dynu.com|Dynu Exec|0|" com = com & "|.|" & "Dynu.Email|http://www.dynu.com|Dynu Email|1|" com = com & "|.|" & "Dynu.Encrypt|http://www.dynu.com|Dynu Encrypt|9|" com = com & "|.|" & "Dynu.FileUtil|http://www.dynu.com|Dynu File|6|" com = com & "|.|" & "Dynu.FTP|http://www.dynu.com|Dynu FTP|0|6" com = com & "|.|" & "Dynu.HTTP|http://www.dynu.com|Dynu HTTP|0|" com = com & "|.|" & "Dynu.POP3|http://www.dynu.com|Dynu POP3|1|" com = com & "|.|" & "Dynu.Ping|http://www.dynu.com|Dynu Ping|0|" com = com & "|.|" & "Dynu.TCPSocket|http://www.dynu.com|Dynu TCPSocket|0|" com = com & "|.|" & "Dynu.StringUtil|http://www.dynu.com|Dynu String|0|" com = com & "|.|" & "Dynu.Upload|http://www.dynu.com|Dynu Upload|3|" com = com & "|.|" & "Dynu.Wait|http://www.dynu.com|Dynu Wait|0|" com = com & "|.|" & "Dynu.Whois|http://www.dynu.com|Dynu Whois|0|" com = com & "|.|" & "MP_Mikys_ASP.Password|http://www.mikys-asp.nykoping.net/Password|ASP Password|9|" com = com & "|.|" & "S3Weather.Current|http://www.softshell.net|S3 Weather Component (free)|0|" com = com & "|.|" & "AuthNetSSLConnect.SSLPost|http://www.authorize.net|Authorize.Net Transaction COM (free)|10|11" com = com & "|.|" & "HexValidEmail.Connection|http://www.hexillion.com|Hexillion - HexValidEmail|1|11" com = com & "|.|" & "Hexillion.HexIcmp|http://www.hexillion.com|Hexillion - HexIcmp|0|" com = com & "|.|" & "Hexillion.HexLookup|http://www.hexillion.com|Hexillion - HexLookup|0|" com = com & "|.|" & "Hexillion.HexTcpQuery|http://www.hexillion.com|Hexillion - HexTcpQuery|0|" com = com & "|.|" & "HexDns.Connection|http://www.hexillion.com|Hexillion - HexDSN|0|" com = com & "|.|" & "ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - ocxQmail|1|" com = com & "|.|" & "OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks - OCXHttp|0|" com = com & "|.|" & "ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - OCXQMail|1|" com = com & "|.|" & "VASPTV.ASPTreeView|http://www.visualasp.com|VisualASP - TreeView|0|" com = com & "|.|" & "VASPLV.ASPListView|http://www.visualasp.com|VisualASP - ListView|0|" com = com & "|.|" & "VASPMV.ASPMonthView|http://www.visualasp.com|VisualASP - MonthView|0|" com = com & "|.|" & "VASPTB.ASPTabView|http://www.visualasp.com|VisualASP - TabView|0|" com = com & "|.|" & "ASPWordToy.WordToy|http://www.asptoys.com|ASP Toys - WordToy (Word Converter)|6|" com = com & "|.|" & "ASPTabToy.TabToy|http://www.asptoys.com|ASP Toys - TabToy|0|" com = com & "|.|" & "aspZipCodeToy.ZipCodeToy|http://www.asptoys.com|ASP Toys - ASP ZipCodeToy|0|11" com = com & "|.|" & "ASPCryptToy.CryptToy|http://www.asptoys.com|ASP Toys - CryptToy|9|" com = com & "|.|" & "Convert.t2h|http://members.home.net/pjsteele/asp|CONVERT - string/html/text manipulation (free)|0|" com = com & "|.|" & "APDocConv.Object|http://www.activepdf.com|activePDF - DocConverter|5|" com = com & "|.|" & "APWebGrabber.Object|http://www.activepdf.com|activePDF - WebGrabber|5|" com = com & "|.|" & "APServer.Object|http://www.activepdf.com|activePDF - activePDF Server|5|" com = com & "|.|" & "APSpool.Object|http://www.activepdf.com|activePDF - Spooler|5|" com = com & "|.|" & "APToolkit.Object|http://www.activepdf.com|activePDF - Toolkit|5|" com = com & "|.|" & "shotgraph.image|http://www.shotgraph.com|Shot Graph|7|" com = com & "|.|" & "IntrChart.Chart|http://www.compsysaus.com.au|IntrChart|7|" com = com & "|.|" & "IntrSQL.Query|http://www.compsysaus.com.au|IntrSQL|0|" com = com & "|.|" & "IntrPWD.Validate|http://www.compsysaus.com.au|IntrPWD|9|" com = com & "|.|" & "IntrCard.Credit|http://www.compsysaus.com.au|IntrCard|0|11" com = com & "|.|" & "AspSmartImage.SmartImage|http://www.aspsmart.com|ASP Smart - aspSmartImage|4|" com = com & "|.|" & "AspSmartChat.SmartChat|http://www.aspsmart.com|ASP Smart - aspSmartChat|0|" com = com & "|.|" & "AspSmartFile.SmartFile|http://www.aspsmart.com|ASP Smart - aspSmartFile|6|" com = com & "|.|" & "aspSmartMenu.SmartMenuPopUp|http://www.aspsmart.com|ASP Smart - aspSmartMenu|0|" com = com & "|.|" & "AspSmartDate.SmartDate|http://www.aspsmart.com|ASP Smart - aspSmartDate|0|" com = com & "|.|" & "AspSmartUpload.SmartUpload|http://www.aspsmart.com|ASP Smart - aspSmartUpload|3|" com = com & "|.|" & "aspSmartMail.SmartMail|http://www.aspsmart.com|ASP Smart - aspSmartMail|1|" com = com & "|.|" & "aspSmartCache.SmartCache|http://www.aspsmart.com|ASP Smart - aspSmartCache|0|" com = com & "|.|" & "xAuthorize.Charge|http://www.xauthorize.com|xAuthorize CC|10|11" com = com & "|.|" & "acDesktop.Desktop|http://www.activecomponents.nu|acDesktop|0|" com = com & "|.|" & "acNetwork.DNS|http://www.activecomponents.nu|acNetwork|0|" com = com & "|.|" & "acSMTP.Smtp|http://www.activecomponents.nu|acSMTP SSL|9|" com = com & "|.|" & "Temperature.Conversion|http://asp.myscripting.com/activextemp.asp|Temperature Conversion|0|" com = com & "|.|" & "cyScape.browserObj|http://www.cyscape.com|BrowserHawk|2|11" com = com & "|.|" & "dkQmail.Qmail||dkQMail|1|" com = com & "|.|" & "Geocel.Mailer|http://www.geocel.com|GeoCel|1|" com = com & "|.|" & "iismail.iismail.1||IISMail|1|" com = com & "|.|" & "SmtpMail.SmtpMail.1||SMTP|1|" com = com & "|.|" & "OpenX2.Connection|http://www.openx.ca|OpenX|1|" com = com & "|.|" & "ABMailer.Mailman|http://www.absoftwarex.com/abmailer|ABMailer|1|" com = com & "|.|" & "c2geread.Message|http://www.componentstogo.com|C2GEread|1|" com = com & "|.|" & "C2G.SCM|http://www.componentstogo.com|C2GSCM|0|8" com = com & "|.|" & "C2GSCM.Service|http://www.componentstogo.com|C2GSCM|8|0" com = com & "|.|" & "C2G.SCAN|http://www.componentstogo.com|C2GSCAN|0|" com = com & "|.|" & "C2G.whois|http://www.componentstogo.com|C2GWHOIS |0|" com = com & "|.|" & "c2g.http|http://www.componentstogo.com|C2GHttp |0|" com = com & "|.|" & "C2G.Ping|http://www.componentstogo.com|C2GPing|0|" com = com & "|.|" & "C2G.Tracert|http://www.componentstogo.com|C2GTracert|0|" com = com & "|.|" & "ANUPLOAD.OBJ|http://www.adminsystem.net/webapp/popcom|ANPOP|1|" com = com & "|.|" & "ASPXP.Mail|http://aspxp.com/free_stuff/aspxpmail|ASPXPMail (free)|1|" com = com & "|.|" & "ActiveMessenger.Message|http://www.infomentum.com|ActiveMessenger|1|" com = com & "|.|" & "ActiveFile.Post|http://www.infomentum.com|ActiveFile|3|" com = com & "|.|" & "ActiveNavigator.Toolbar|http://www.infomentum.com|ActiveNavigator|0|" com = com & "|.|" & "ActiveProfile.Profile|http://www.infomentum.com|ActiveProfile|2|9" com = com & "|.|" & "DartZip.Zip.1|http://www.dart.com|Dart Zip Compression Tool|6|" com = com & "|.|" & "Dart.Ftp.1|http://www.dart.com|Dart FTP Tool|6|0" com = com & "|.|" & "Dart.Pop.1|http://www.dart.com|Dart POP Mail|1|" com = com & "|.|" & "Dart.Ping.1|http://www.dart.com|Dart Ping|0|" com = com & "|.|" & "Dart.Dns.1|http://www.dart.com|Dart DNS|0|" com = com & "|.|" & "Dart.Smtp.1|http://www.dart.com|Dart SMTP|1|" com = com & "|.|" & "Dart.Telnet.1|http://www.dart.com|Dart PowerTCP Telnet Tool|0|" com = com & "|.|" & "Dart.Http.1|http://www.dart.com|Dart HTTP|0|" com = com & "|.|" & "Dart.Tcp.1|http://www.dart.com|Dart TCP|0|" com = com & "|.|" & "Dart.WebPage.1|http://www.dart.com|Dart WebPage|0|" com = com & "|.|" & "Dart.WebASP.1|http://www.dart.com|Dart ASP|0|" com = com & "|.|" & "Dart.Message.1|http://www.dart.com|Dart Message|0|" com = com & "|.|" & "Dart.Manager.1|http://www.dart.com|Dart Manager|0|" com = com & "|.|" & "quicktab.quicktabs|http://www.webintel.net|Quicktab|0|" com = com & "|.|" & "waspzip.waspzip|http://www.webintel.net|Wasp Zip|6|5" com = com & "|.|" & "easyBarCode.aspBarCode|http://www.mitdata.com|aspEasyBarCode|7|0" com = com & "|.|" & "aspZip.EasyZIP|http://www.mitdata.com|aspEasyZIP|6|5" com = com & "|.|" & "aspPDF.EasyPDF|http://www.mitdata.com|aspEasyPDF|5|6" com = com & "|.|" & "aspCrypt.EasyCRYPT|http://www.mitdata.com|aspEasyCRYPT|9|" com = com & "|.|" & "objBarGraph.DrawChart|http://www.livesoup.com/bargraph.asp|BarGraph (free)|7|" com = com & "|.|" & "LyfUpload.UploadFile|http://www.21jsp.com|LyfUpload (free)|3|" com = com & "|.|" & "lyfimage.image|http://www.21jsp.com|LyfImage (free)|4|7" com = com & "|.|" & "ASPControlHost.Host|http://release-systems.8m.com/asphost.html|ASPControlHost|7|4" com = com & "|.|" & "GSServer.GSServerProp|http://www.graphicsserver.com|Graphics Server|4|7" com = com & "|.|" & "ASPPicture.Picture|http://www.unchanged.net|ASPPicture|4|" com = com & "|.|" & "COMobjectsNET.IconGrabber|http://www.comobjects.net|COMobjects.NET Icon Grabber|4|" com = com & "|.|" & "COMobjects.NET.PictureProcessor|http://www.comobjects.net|COMobjects.NET Picture Processor|4|" com = com & "|.|" & "COMobjectsNET.PictureGalleryPro|http://www.comobjects.net|COMobjects.NET Picture Gallery Pro|4|" com = com & "|.|" & "COMobjectsNET.Colorizer|http://www.comobjects.net|COMobjects.NET Colorizer|4|" com = com & "|.|" & "COMobjectsNET.PieChart|http://www.comobjects.net|COMobjects.NET 3D Pie Chart|7|4" com = com & "|.|" & "ChartDirector.API|http://www.advsofteng.com|ChartDirector|7|" com = com & "|.|" & "Stonebroom.ASPointer|http://www.stonebroom.com|Stonebroom.ASPointer|13|5" com = com & "|.|" & "Stonebroom.ASP2XML|http://www.stonebroom.com|Stonebroom.ASP2XML|13|5" com = com & "|.|" & "Stonebroom.RegEx|http://www.stonebroom.com|Stonebroom.RegEx|0|" com = com & "|.|" & "Stonebroom.RemoteZip|http://www.stonebroom.com|Stonebroom.RemoteZip|5|6" com = com & "|.|" & "Stonebroom.SaveForm|http://www.stonebroom.com|Stonebroom.SaveForm|12|" com = com & "|.|" & "Stonebroom.ServerZip|http://www.stonebroom.com|Stonebroom.ServerZip|5|6" com = com & "|.|" & "Stonebroom.XSLTransform|http://www.stonebroom.com|Stonebroom.XSLTransform|13|5" com = com & "|.|" & "OpenX.DBMail|http://www.openx.ca|OpenX DBMail|1|12" com = com & "|.|" & "com.comsoltech.CGI|http://www.comsoltech.com|com.comsoltech.CGI (free)|12|" com = com & "|.|" & "Datafun.FormBoy|http://www.datafun.net|FormBoy|12|10" com = com & "|.|" & "AddressTools.ZIPCheck|http://www.addresstools.com|AddressTools - ZIPCheck|11|12" com = com & "|.|" & "AddressTools.EmailCheck|http://www.addresstools.com|AddressTools - EmailCheck|11|12" com = com & "|.|" & "VisualSoft.Mail.1|http://www.visualmart.com|VisualSoft Mail|1|" com = com & "|.|" & "VisualSoft.BLOWFISHCrypt.1|http://www.visualmart.com|VisualSoft Crypt|9|" com = com & "|.|" & "VisualSoft.FTP.1|http://www.visualmart.com|VisualSoft FTP|6|0" com = com & "|.|" & "VisualSoft.HTTP.1|http://www.visualmart.com|VisualSoft HTTP|2|0" com = com & "|.|" & "VisualSoft.Chart.1|http://www.visualmart.com|VisualSoft Chart|7|" com = com & "|.|" & "VisualSoft.DMXML.1|http://www.visualmart.com|VisualSoft XMLPro|13|" com = com & "|.|" & "VisualSoft.DataAdmin.1|http://www.visualmart.com|VisualSoft DataAdmin|0|" com = com & "|.|" & "QwerkSoft.FormSlam|http://www.qwerksoft.com|Form Slam|12|11" com = com & "|.|" & "MSWC.NextLink|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp7pmc.asp|Microsoft Content Linking Component|0|" com = com & "|.|" & "MSWC.BrowserType|http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/html/psdk/asp/comp3xx0.asp|Microsoft Browser Capability|2|" com = com & "|.|" & "MSWC.ContentRotator|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp09dg.asp|Microsoft Content Rotator|0|" com = com & "|.|" & "MSWC.AdRotator|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp59f8.asp|Microsoft Ad Rotator|0|" com = com & "|.|" & "MSWC.PermissionChecker|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp3hf8.asp|Microsoft Permission Checker Component|0|" com = com & "|.|" & "MSWC.Status|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp1qt0.asp|Microsoft Status Component|0|" com = com & "|.|" & "MSWC.Tools|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp7g8k.asp|Microsoft Tools Component|0|" com = com & "|.|" & "MSWC.PageCounter|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp00vo.asp|Microsoft Page Counter Component|0|" com = com & "|.|" & "MSWC.IISLog|http://msdn.microsoft.com/library/en-us/iisref/html/psdk/asp/comp6i5w.asp|Microsoft Logging Utility Component|0|" com = com & "|.|" & "MSXML2.ServerXMLHTTP|http://msdn.microsoft.com/library/en-us/xmlsdk30/htm/xmobjxmldomserverxmlhttp_using_directly.asp|Microsoft ServerXMLHTTP|13|" com = com & "|.|" & "Microsoft.XMLDOM|http://www.microsoft.com|Microsoft XMLDOM Component|13|" com = com & "|.|" & "Microsoft.XMLHTTP|http://www.microsoft.com|Microsoft XMLHTTP Component|13|" com = com & "|.|" & "Scripting.FileSystemObject|http://www.microsoft.com|MicrosoftFileSystem Object|6|" com = com & "|.|" & "WScript.Shell|http://www.microsoft.com|Windows Script Shell|0|" com = com & "|.|" & "WScript.Network|http://www.microsoft.com|Windows Script Network|0|" com = com & "|.|" & "ADODB.Connection|http://www.microsoft.com|ADODB.Connection|0|" com = com & "|.|" & "ADODB.Command|http://www.microsoft.com|ADODB.Command|0|" com = com & "|.|" & "ADODB.Recordset|http://www.microsoft.com|ADODB.Recordset|0|" com = com & "|.|" & "Scripting.Dictionary|http://www.microsoft.com|Scripting.Dictionary|0|" com = com & "|.|" & "SiteAdmin.AdminTools|http://components.sitetown.com|SiteSecurity|9|" com = com & "|.|" & "SiteSecurity.Login|http://components.sitetown.com|SiteSecurity|9|" com = com & "|.|" & "FileDownload.Manager|http://components.sitetown.com|File Download|6|0" com = com & "|.|" & "EasyDb.Database|http://components.sitetown.com|Easy DB|0|" com = com & "|.|" & "AbsoluteHttp.Conn|http://www.speeq.com|AbsoluteHTTP|0|" com = com & "|.|" & "ASPCharge.CC|http://www.bluesquirrel.com|A$PCharge|10|11" com = com & "|.|" & "ProjectDisplay.Charts|http://www.aspkey.com|ASPkey ProjectDisplay|0|" com = com & "|.|" & "IPWorksASP.SOAP|http://www.nsoftware.com|IP Works Soap|13|" com = com & "|.|" & "IPWorksASP.FileMailer|http://www.nsoftware.com|IP Works FileMailer|1|6" com = com & "|.|" & "IPWorksASP.FTP|http://www.nsoftware.com|IP Works FTP|0|" com = com & "|.|" & "IPWorksASP.HTMLMailer|http://www.nsoftware.com|IP Works HTMLMailer|1|" com = com & "|.|" & "IPWorksASP.HTTP|http://www.nsoftware.com|IP Works HTTP|13|0" com = com & "|.|" & "IPWorksASP.ICMPPort|http://www.nsoftware.com|IP Works ICMPPort|0|" com = com & "|.|" & "IPWorksASP.IMAP|http://www.nsoftware.com|IP Works IMAP|0|" com = com & "|.|" & "IPWorksASP.IPInfo|http://www.nsoftware.com|IP Works IPInfo|0|" com = com & "|.|" & "IPWorksASP.IPPort|http://www.nsoftware.com|IP Works IPPort|0|" com = com & "|.|" & "IPWorksASP.LDAP|http://www.nsoftware.com|IP Works LDAP|0|" com = com & "|.|" & "IPWorksASP.MCast|http://www.nsoftware.com|IP Works MCast|0|" com = com & "|.|" & "IPWorksASP.MIME|http://www.nsoftware.com|IP Works MIME|1|" com = com & "|.|" & "IPWorksASP.MX|http://www.nsoftware.com|IP Works MX|1|" com = com & "|.|" & "IPWorksASP.NetClock|http://www.nsoftware.com|IP Works NetClock|0|" com = com & "|.|" & "IPWorksASP.NetCode|http://www.nsoftware.com|IP Works NetCode|0|" com = com & "|.|" & "IPWorksASP.NetDial|http://www.nsoftware.com|IP Works NetDial|0|" com = com & "|.|" & "IPWorksASP.NNTP|http://www.nsoftware.com|IP Works NNTP|0|" com = com & "|.|" & "IPWorksASP.Ping|http://www.nsoftware.com|IP Works Ping|0|" com = com & "|.|" & "IPWorksASP.POP|http://www.nsoftware.com|IP Works POP|1|" com = com & "|.|" & "IPWorksASP.RCP|http://www.nsoftware.com|IP Works RCP|6|0" com = com & "|.|" & "IPWorksASP.Rexec|http://www.nsoftware.com|IP Works Rexec|0|" com = com & "|.|" & "IPWorksASP.Rshell|http://www.nsoftware.com|IP Works Rshell|0|" com = com & "|.|" & "IPWorksASP.SMTP|http://www.nsoftware.com|IP Works SMTP|1|" com = com & "|.|" & "IPWorksASP.SNMP|http://www.nsoftware.com|IP Works SNMP|1|0" com = com & "|.|" & "IPWorksASP.SNPP|http://www.nsoftware.com|IP Works SNPP|13|0" com = com & "|.|" & "IPWorksASP.Telnet|http://www.nsoftware.com|IP Works Telnet|0|" com = com & "|.|" & "IPWorksASP.TFTP|http://www.nsoftware.com|IP Works TFTP|0|" com = com & "|.|" & "IPWorksASP.TraceRoute|http://www.nsoftware.com|IP Works TraceRoute|0|" com = com & "|.|" & "IPWorksASP.UDPPort|http://www.nsoftware.com|IP Works UDPPort|0|" com = com & "|.|" & "IPWorksASP.WebForm|http://www.nsoftware.com|IP Works WebForm|12|" com = com & "|.|" & "IPWorksASP.WebUpload|http://www.nsoftware.com|IP Works WebUpload|3|" com = com & "|.|" & "IPWorksASP.Whois|http://www.nsoftware.com|IP Works Whois|0|" com = com & "|.|" & "IPWorksASP.XMLp|http://www.nsoftware.com|IP Works XMLp|13|" 'com = com & "|.|" & "||||" 'com = com & "|.|" & "||||" com = Split(com, "|.|") cat = "Miscelanea" cat = cat & "|Email" cat = cat & "|Browser" cat = cat & "|Upload" cat = cat & "|Imagem" cat = cat & "|Documentação" cat = cat & "|Manipulação de Arquivos" cat = cat & "|Gráficos " cat = cat & "|Gerenciamento de Usuários" cat = cat & "|Usuários & Segurança" cat = cat & "|E-Commerce" cat = cat & "|Validação" cat = cat & "|Formulários" cat = cat & "|XML" cat = Split(cat, "|") if (isnumeric(request("show"))) then show = CInt(request("show")) else show = 1 if (show > 3) then show = 1 if (isnumeric(request("showCat")) AND request("showCat") <> "") then showCat = CInt(request("showCat")) else showCat = "all" if isNumeric(showCat) then if (showCat > UBound(cat)) then showCat = "all" end if checkVersion = getHTML("http://www.pensaworks.com/tutorials/com_version.asp") if (checkVersion <> lastUpdate) then newVersion = True %> <HTML> <HEAD> <TITLE>ASP Component Test - http://www.pensaworks.com</TITLE> <script language=JavaScript> <!-- function BringUpWindow(webpage) { var url = webpage; var hWnd = window.open(url,"Mailer_Popup","width=425,height=325,resizable=yes,scrollbars=yes,status=yes"); if (window.focus) {hWnd.focus()} if (hWnd != null) { if (hWnd.opener == null) { hWnd.opener = self; window.name = "home"; hWnd.location.href=url; } } else { } } // --> </SCRIPT> </HEAD> <body bgcolor="#ffffff" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0"> <% if request("comID") <> "" then comID = request("comID") comDetails = Split(com(comID), "|") comCreate = comDetails(0) comURL = comDetails(1) comName = comDetails(2) comCat = comDetails(3) comCat2 = comDetails(4) %> <table border="0" cellpadding="2" cellspacing="0" width="100%"> <tr> <td bgcolor="#000080"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">Detalhes do Componente</font></b></font></td> </tr> </table> <% Set b = New ProgIDInfo Set a = b.LoadProgID(comCreate) if a.Description <> "" then %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <b>Componente:</b> <%=comName%><br> <b>Website:</b> <% if comURL <> "" then %><a href="<%=comURL%>" target="_blank"><%=comURL%></a><% end if %><br> <b>Categoria(s):</b> <%=cat(comCat)%><% if comCat2 <> "" then %> | <%=cat(comCat2)%><% end if %><br> <b>Descrição:</b> <%= a.Description %><br> <b>Nome da DLL:</b> <%=a.DLLName%><br> <b>ProgID:</b> <%=a.ProgID%><br> <b>ClsID:</b> <%=a.ClsID%><br> <b>Path:</b> <%=a.Path%><br> <b>TypeLib:</b> <%=a.TypeLib%><br> <b>Versão:</b> <%=a.Version%><br> </font> <% else %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Informação não Encontrada para o componente:</b> <%=comName%></font> <% end if %> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><p align="center"><a href=# onClick="self.close();"><b>Fechar Janela</b></a></p> </font> <table border="0" width="98%" cellpadding="2" align="center"> <tr> <td width="200%"> <hr width="90%"> </td> </tr> <tr> <td width="25%" valign="bottom"> <p align="right"><%=constAutor%></p> </td> </tr> </table> <% else %> <table border="0" width="100%" cellspacing="0" cellpadding="3"> <tr> <td width="100%" bgcolor="#000080"> <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="4" color="mintcream">ASP Component Test</font></b></div> </td> </tr> </table> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <p align="center"> Este código (Component Test) verifica simplesmente os componentes instalados observando o Objeto que o componente usa. Não garante que o componente está configurado para trabalhar corretamente. Se você tiver quaisquer pergunta a respeito de um componente especifíco, você pode contatar a empresa fabricante do componente. Erros, pedido ou comentário referente ao código devem ser feitos ao criador: <a href="mailto:JHarris@pensaworks.com">James Harris</a>. Última atualização feita em <%=lastUpdate%>. </p> </font> <p></p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <p align="center"><b>Aguarde... Verificando <%=(UBound(com) + 1)%> componentes. Isto pode demorar alguns segundos.</b></p> </font> <table border="0" align="center" cellspacing="2" cellpadding="4"> <tr> <td colspan="5"> <form name="ShowCOMs" method="post" action="<%=Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1)%>"> <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Filtrar:</font></b> <select name="show"> <option value="1"<% if (show = 1) then response.write " SELECTED"%>>Ver todos COMs</option> <option value="2"<% if (show = 2) then response.write " SELECTED"%>>Instalados COMs</option> <option value="3"<% if (show = 3) then response.write " SELECTED"%>>Não Instalados COMs</option> </select> <b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Por:</font></b> <select name="showCat"> <option value="all"<% if (lcase(showCat) = "all") then response.write " SELECTED"%>>Todas Categorias</option> <% for i = 0 to UBound(cat) %> <option value="<%=i%>"<% if (showCat = i) then response.write " SELECTED"%>><%=cat(i)%></option> <% next %> </select> <input type="submit" name="Submit" value="Submit"> </div> </form> </td> </tr> <tr> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">#</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Categoria</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Status</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Detalhes</font></b></td> <td bgcolor="#000099"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Componente</font></b></td> </tr> <% for i = 0 to UBound(com) comDetails = split(com(i), "|") display = false display2 = false comCreate = comDetails(0) comURL = comDetails(1) comName = comDetails(2) comCat = CInt(comDetails(3)) comCat2 = CInt(comDetails(4)) installed = IsObjInstalled(comCreate) if show = 2 then if (NOT Installed) then display = false else display = true elseif show = 3 then if (NOT Installed) then display = true else diusplay = false else display = true end if if isnumeric(showCat) then if (comCat = showCat or comCat2 = showCat) then display2 = true else display2 = false else display2 = true end if %> <% if (display AND display2) then onNum = onNum + 1 %> <% if (onNum Mod 2) Then %> <tr> <% else %> <tr bgcolor="#CCCCCC"> <% end If %> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=(onNum)%></b></font></td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% if IsNumeric(showCat) then %><%=cat(showCat)%><% else %><%=cat(comCat)%><% end if %></font></td> <td> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b> <% if NOT installed then %> <font color="#FF0000">Não Instalado</font> <% else installedCOMs = installedComs + 1 %> <font color="#009933">Instalado</font> <% end if %> </b></font></div> </td> <td> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% if NOT installed then %> Não Avaliado <% else %> <a href="Javascript:BringUpWindow('<%=Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1)%>?comID=<%=i%>')">COM Detalhes</a> <% end if %> </font></div> </td> <td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% if comURL <> "" then %><a href="<%=comURL%>" target="_blank"><%=comName%></a><% else %><%=comName%><% end if %></font></td> </tr> <% end if installed = "" : comCreate = "" : comURL = "" : comName = "" : comCat = "" : comCat2 = "" next response.flush() %> <% if onNum = 0 then %> <tr> <td colspan="5"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Você não tem nenhum componente instalado</b></font></div> </td> </tr> <% end if %> </table> <div align="center"> <p> </p> <p><font size="3" face="Verdana, Arial, Helvetica, sans-serif">Você tem um total de <b><%=installedCOMs%></b> COMs instalados num total de <b><%=onNum%></b> verificados.<br> Atualmente, este certificado verifica se há <b><%=(UBound(com) + 1)%></b> componentes diferentes</font></p> </div> <table border="0" width="98%" cellpadding="2" align="center"> <tr> <td width="200%"> <hr width="90%"> </td> </tr> <tr> <td width="25%" valign="bottom"> <p align="right"><%=constAutor%></p> </td> </tr> </table> <% end if %> </BODY> </HTML> <% function IsObjInstalled(strClassString) IsObjInstalled = false : Err = 0 Set testObj = Server.CreateObject(strClassString) if (0 = Err) then IsObjInstalled = true else IsObjInstalled = false Set testObj = nothing end function Class Program Public Description, ClsID, ProgID, Path, TypeLib, Version, DLLName End Class Class ProgIDInfo Private WshShell, sCVProgID, oFSO Private Sub Class_Initialize() On Error Resume Next set oFSO = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") End Sub Private Sub Class_Terminate() If IsObject(WshShell) Then Set WshShell = Nothing If IsObject(oFSO) Then set oFSO = Nothing End Sub Private Function IIf(byval conditions, byval trueval, byval falseval) if cbool(conditions) then IIf = trueval else IIf = falseval End Function Public Function LoadProgID(ByVal sProgramID) Dim sTmpProg, oTmp, sRegBase, sDesc, sClsID Dim sPath, sTypeLib, sProgID, sVers, sPathSpec If IsObject(WshShell) Then On Error Resume Next sCVProgID = WshShell.RegRead("HKCR\" & _ sProgramID & "\CurVer\") sTmpProg = IIf(Err.Number = 0, sCVProgID, sProgramID) sRegBase = "HKCR\" & sTmpProg sDesc = WshShell.RegRead(sRegBase & "\") sClsID = WshShell.RegRead(sRegBase & "\clsid\") sRegBase = "HKCR\CLSID\" & sClsID sPath = WshShell.RegRead(sRegBase & "\InprocServer32\") sPath = WshShell.ExpandEnvironmentStrings(sPath) sTypeLib = WshShell.RegRead(sRegBase & "\TypeLib\") sProgID = WshShell.RegRead(sRegBase & "\ProgID\") sVers = oFSO.getFileVersion(sPath) sPathSpec = right(sPath, len(sPath) - _ instrrev(sPath, "\")) Set oTmp = New Program oTmp.Description = sDesc oTmp.ClsID = IIf(sClsID <> "", sClsID, "undetermined") oTmp.Path = IIf(sPath <> "", sPath, "undetermined") oTmp.TypeLib = IIf(sTypeLib <> "", _ sTypeLib, "undetermined") oTmp.ProgID = IIf(sProgID <> "", _ sProgID, "undetermined") oTmp.DLLName = IIf(sPathSpec <> "", _ sPathSpec, "undetermined") oTmp.Version = IIf(sVers <> "", sVers, "undetermined") Set LoadProgID = oTmp Else Set LoadProgID = Nothing End If End Function End Class function getHTML(strURL) dim objXMLHTTP, strReturn Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send getHTML = objXMLHTTP.responseText Set objXMLHTTP = Nothing end function %>Esse codigo, eu peguei no fórum Freecode.
Portanto, os direitos autoriais ficam para quem criou, que no script deve dizer.
Abraços
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.