Problems using ActiveX components on many domains on Win7

Customer Support H-Sphere Reseller Hosting
1

Hi guys,

I am having problems when using ActiveX components (ASP, VbScript) like Microsoft.XMLHTTP on many domains and subdomains on Win7, same to only verify them by means of “objcheck.asp”, it remains loading eternally, and it does not show any information ?(
Somebody is experiencing something similar?

2

Solved :smiley:
They can erase this thread if the administrators wish it

3

Juan,

objcheck is known to do that, and does that on many servers, this one works better:
http://www.pensaworks.com/prg_com.asp

I don’t want to erase the thread, I spent 25 min looking for this link, I want google to cache it!

4

[QUOTE=Stephen]
objcheck is known to do that, and does that on many servers, this one works better:
http://www.pensaworks.com/prg_com.asp
[/QUOTE]

Stephen,

“objchek.asp” and “test_asp_components.asp” is exactly the same file (with the only difference of the file name, of course :smiley: ), i use for show and test the components on each server where I have own accounts or of my clients :wink:

5

I have had objcheck.asp freeze when the other did not, side by side, odd.

6

Then I do not understand it, I have not changed absolutely anything of the code, and if I compare file against file nonencounter no difference among them.

Really i do not understand ?(

7

I opened both of these in Visual Studio, they have totally different coding styles by the looks of it, maybe in the end they are doing the same thing, but they are clearly different.

Pensaworks has this method:
[PHP]’ The Components
’ format: comObject|comURL|comName|comCategory|comCategory2
com = “CDONTS.NewMail|http://www.microsoft.com|CDONTS (free)|1|”
com = com & vbnewline & “MSWC.NextLink|Microsoft Learn: Build with answers in reach Content Linking Component|0|”
com = com & vbnewline & “MSWC.BrowserType|Technical documentation | Microsoft Learn Browser Capability|2|”[/PHP]

The other has this, it seems ot actually get the component list via XML, which may be a reason for the freeze!

[PHP]CountInstalled = 0
Set objRS = Server.CreateObject(“ADODB.Recordset”)
Set objRSdata = Server.CreateObject(“ADODB.Recordset”)
if request.querystring(“debug”)<>“” then
session(“debug”)=request.querystring(“debug”)
end if

'Leave those URLs as they are - needed for retrieving updates and the database
'distributed on two servers due to high traffic
updateurl = “http://www.kempfer-online.de/objupdate.txt”
'ListURL = “http://www.bier-voting.de/objcheck/db.asp”
'ListURL = “http://localhost/objcheck/db.asp”
ListURL = “http://www.bier-voting.de/objcheck/db.php”
'Fake the browser, so it doesn’t display cached sites.
ListURL = ListURL & “?nocache=” & Server.URLEncode(rnd*10000)
Dim methods(3)
[/PHP]

8

The objcheck.asp code (the page that use for a long time)

[PHP]
<%@Language=“VBScript”%>
<%
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’
’ ASP Component Test
’ ? 2001 James Harris, All Rights Reserved
’ For help with this script, please visit http://www.pensaworks.com
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’

on error resume next
response.buffer = true
server.scripttimeout = 1000

installedCOMs = 0
onNum = 0
lastUpdate = “4/3/2003”
newVersion = False

’ The Components
’ format: comObject|comURL|comName|comCategory|comCategory2
com = “CDONTS.NewMail|http://www.microsoft.com|CDONTS (free)|1|”
com = com & vbnewline & “MSWC.NextLink|Microsoft Learn: Build with answers in reach Content Linking Component|0|”
com = com & vbnewline & “MSWC.BrowserType|Technical documentation | Microsoft Learn Browser Capability|2|”
com = com & vbnewline & “MSWC.ContentRotator|Microsoft Learn: Build with answers in reach Content Rotator|0|”
com = com & vbnewline & “MSWC.AdRotator|Microsoft Learn: Build with answers in reach Ad Rotator|0|”
com = com & vbnewline & “MSWC.PermissionChecker|Microsoft Learn: Build with answers in reach Permission Checker Component|0|”
com = com & vbnewline & “MSWC.Status|Microsoft Learn: Build with answers in reach Status Component|0|”
com = com & vbnewline & “MSWC.Tools|Microsoft Learn: Build with answers in reach Tools Component|0|”
com = com & vbnewline & “MSWC.PageCounter|Microsoft Learn: Build with answers in reach Page Counter Component|0|”
com = com & vbnewline & “MSWC.IISLog|Microsoft Learn: Build with answers in reach Logging Utility Component|0|”
com = com & vbnewline & “MSXML2.ServerXMLHTTP|Microsoft Learn: Build with answers in reach ServerXMLHTTP|13|”
com = com & vbnewline & “Microsoft.XMLDOM|http://www.microsoft.com|Microsoft XMLDOM Component|13|”
com = com & vbnewline & “Microsoft.XMLHTTP|http://www.microsoft.com|Microsoft XMLHTTP Component|13|”
com = com & vbnewline & “Scripting.FileSystemObject|http://www.microsoft.com|MicrosoftFileSystem Object|6|”
com = com & vbnewline & “ADOX.Catalog|http://www.microsoft.com|MicroSoft ADOX Catalog|0|”
com = com & vbnewline & “WScript.Shell|http://www.microsoft.com|Windows Script Shell|0|”
com = com & vbnewline & “WScript.Network|http://www.microsoft.com|Windows Script Network|0|”
com = com & vbnewline & “ADODB.Connection|http://www.microsoft.com|ADODB.Connection|0|”
com = com & vbnewline & “ADODB.Command|http://www.microsoft.com|ADODB.Command|0|”
com = com & vbnewline & “ADODB.Recordset|http://www.microsoft.com|ADODB.Recordset|0|”
com = com & vbnewline & “Scripting.Dictionary|http://www.microsoft.com|Scripting.Dictionary|0|”
com = com & vbnewline & “ASPFileUpload.File|http://support.microsoft.com/default.aspx?scid=kb;EN-US;q299692|MicroSoft File Upload|3|0”
com = com & vbnewline & “Scripting.Encoder|http://www.microsoft.com|Script Encoder|0|”
com = com & vbnewline & “Msxml2.DOMDocument.3.0|http://www.microsoft.com|Microsoft XMLDOM 3.0 Component|13|”
com = com & vbnewline & “Msxml2.DOMDocument.4.0|Microsoft Learn: Build with answers in reach XMLDOM 4.0 Component|13|”
com = com & vbnewline & “SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPMail|1|”
com = com & vbnewline & “SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPQMail|1|”
com = com & vbnewline & “AspImage.Image|http://www.serverobjects.com|Server Objects - ASPImage|4|”
com = com & vbnewline & “POP3svg.Mailer|http://www.serverobjects.com|Server Objects - ASPPop3|1|”
com = com & vbnewline & “AspNNTP.Conn|http://www.serverobjects.com|Server Objects - AspNNTP|0|”
com = com & vbnewline & “AspFile.FileObj|http://www.serverobjects.com|ServerObjects - AspFile|6|”
com = com & vbnewline & “AspConv.Expert|http://www.serverobjects.com|ServerObjects - AspConv|0|”
com = com & vbnewline & “AspHTTP.Conn|http://www.serverobjects.com|ServerObjects - AspHTTP|0|”
com = com & vbnewline & “AspDNS.Lookup|http://www.serverobjects.com|ServerObjects - AspDNS|0|”
com = com & vbnewline & “AspMX.Lookup|http://www.serverobjects.com|ServerObjects - AspMX|1|”
com = com & vbnewline & “WaitFor.Comp|http://www.serverobjects.com|ServerObjects - Waitfor (free)|0|”
com = com & vbnewline & “LastMod.FileObj|http://www.serverobjects.com|ServerObjects - Last Modified (free)|6|”
com = com & vbnewline & “ImgSize.Check|http://www.serverobjects.com|ServerObjects - Image Size (free)|4|”
com = com & vbnewline & “GuidMakr.GUID|http://www.serverobjects.com|ServerObjects - GUID Maker (free)|0|”
com = com & vbnewline & “ASPsvg.Process|http://www.serverobjects.com|ServerObjects - AspProc (free)|0|”
com = com & vbnewline & “AspPing.Conn|http://www.serverobjects.com|ServerObjects - AspPing (free)|0|”
com = com & vbnewline & “AspInet.FTP|http://www.serverobjects.com|ServerObjects - AspInet (free)|0|”
com = com & vbnewline & “ASPExec.Execute|http://www.serverobjects.com|ServerObjects - AspExec (free)|0|”
com = com & vbnewline & “AspCrypt.Crypt|http://www.serverobjects.com|ServerObjects - AspCryp (free)|9|”
com = com & vbnewline & “Bible.Lookup|http://www.serverobjects.com|ServerObjects - AspBible (free)|0|”
com = com & vbnewline & “SoftArtisans.SAFile|http://www.softartisans.com|SoftArtisians Fileup|3|”
com = com & vbnewline & “SoftArtisans.FileManager|http://www.softartisans.com|SoftArtisians FileManager|6|”
com = com & vbnewline & “SoftArtisans.XFRequest|http://www.softartisans.com|SoftArtisians X-File|6|”
com = com & vbnewline & “SoftArtisans.FileManagerTX|http://www.softartisans.com|SoftArtisians FileManagerTX|6|”
com = com & vbnewline & “SoftArtisans.SASessionPro.1|http://www.softartisans.com|SoftArtisans SA-Session Pro|0|”
com = com & vbnewline & “SMUM.XCheck.1|http://www.softartisans.com|SoftArtisians Check (form validator)|11|”
com = com & vbnewline & “Softartisans.Archive|http://www.softartisans.com|SoftArtisans Archive|6|”
com = com & vbnewline & “SoftArtisans.SMTPMail|http://www.softartisans.com|SoftArtisans SMTPmail|1|”
com = com & vbnewline & “Softartisans.ExcelWriter|http://www.softartisans.com|SoftArtisans Excel Writer|5|”
com = com & vbnewline & “SoftArtisans.Groups|http://www.softartisans.com|SoftArtisans.Groups (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.Performance|http://www.softartisans.com|SoftArtisians.Performance (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.RAS|http://www.softartisans.com|SoftArtisans.RAS (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.Shares|http://www.softartisans.com|SoftArtisans.Shares (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.User|http://www.softartisans.com|SoftArtisans.User (SA-Admin)|9|”
com = com & vbnewline & “Jmail.smtpmail|http://www.dimac.net|w3 JMail|1|”
com = com & vbnewline & “w3sitetree.tree|http://www.dimac.net|w3 Site Tree : www.dimac.net|0|”
com = com & vbnewline & “w3.upload|http://www.dimac.net|w3 Upload|3|”
com = com & vbnewline & “w3.netutils|http://www.dimac.net|w3 Utils|0|”
com = com & vbnewline & “Socket.TCP|http://www.dimac.net|w3 Sockets|0|”
com = com & vbnewline & “w3.netutils|http://www.dimac.net|w3 NetDebug|0|”
com = com & vbnewline & “Persits.MailSender|http://www.persits.com|Persits - ASPEmail|1|”
com = com & vbnewline & “Persits.Upload.1|http://www.persits.com|Persits - ASPUpload|3|”
com = com & vbnewline & “Persits.Jpeg|http://www.persits.com|Persits - AspJpeg|4|”
com = com & vbnewline & “Persits.Grid|http://www.persits.com|Persits - AspGrid|0|”
com = com & vbnewline & “Persits.AspUser|http://www.persits.com|Persits - AspUser|9|”
com = com & vbnewline & “Persits.CryptoManager|http://www.persits.com|Persits - AspEncrypt|9|”
com = com & vbnewline & “ADISCON.SimpleMail.1|http://www.simplemail.adiscon.com/en|SimpleMail|1|”
com = com & vbnewline & “CalendarCom.CalendarStuff|http://www.devguru.com|DevGuru - dgcalendar|0|”
com = com & vbnewline & “dgEncrypt.Key|http://www.devguru.com|DevGuru - dgEncrypt|9|”
com = com & vbnewline & “dgFileUpload.dgUpload|http://www.devguru.com|DevGuru - dgFileup|3|”
com = com & vbnewline & “dgReport.Report|http://www.devguru.com|DevGuru - dgReport|0|”
com = com & vbnewline & “dgSort.QuickSort|http://www.devguru.com|DevGuru - dgSort|0|”
com = com & vbnewline & “dgTree.Tree|http://www.devguru.com|DevGuru - dgTree|0|”
com = com & vbnewline & “Dundas.Mailer|http://www.dundas.com|Dundas - ASPMailer|1|”
com = com & vbnewline & “Dundas.PieChartServer.2|http://www.dundas.com|Dundas - Pie Chart Server Control|7|”
com = com & vbnewline & “Dundas.Upload|http://www.dundas.com|Dundas - Upload|3|”
com = com & vbnewline & “EasyMail.SMTP.5|http://www.quiksoft.com|Quicksoft - EasyMail (free)|1|”
com = com & vbnewline & “AspPing.Conn|http://www.15seconds.com/component/pg000229.htm|ASP Ping|0|”
com = com & vbnewline & “Dynu.CreditCard|http://www.dynu.com|Dynu CreditCard|10|11”
com = com & vbnewline & “Dynu.DateTime|http://www.dynu.com|Dynu DateTime|0|”
com = com & vbnewline & “Dynu.DNS|http://www.dynu.com|Dynu DNS|0|”
com = com & vbnewline & “Dynu.Exec|http://www.dynu.com|Dynu Exec|0|”
com = com & vbnewline & “Dynu.Email|http://www.dynu.com|Dynu Email|1|”
com = com & vbnewline & “Dynu.Encrypt|http://www.dynu.com|Dynu Encrypt|9|”
com = com & vbnewline & “Dynu.FileUtil|http://www.dynu.com|Dynu File|6|”
com = com & vbnewline & “Dynu.FTP|http://www.dynu.com|Dynu FTP|0|6”
com = com & vbnewline & “Dynu.HTTP|http://www.dynu.com|Dynu HTTP|0|”
com = com & vbnewline & “Dynu.POP3|http://www.dynu.com|Dynu POP3|1|”
com = com & vbnewline & “Dynu.Ping|http://www.dynu.com|Dynu Ping|0|”
com = com & vbnewline & “Dynu.TCPSocket|http://www.dynu.com|Dynu TCPSocket|0|”
com = com & vbnewline & “Dynu.StringUtil|http://www.dynu.com|Dynu String|0|”
com = com & vbnewline & “Dynu.Upload|http://www.dynu.com|Dynu Upload|3|”
com = com & vbnewline & “Dynu.Wait|http://www.dynu.com|Dynu Wait|0|”
com = com & vbnewline & “Dynu.Whois|http://www.dynu.com|Dynu Whois|0|”
com = com & vbnewline & “MP_Mikys_ASP.Password|http://www.mikys-asp.nykoping.net/Password|ASP Password|9|”
com = com & vbnewline & “S3Weather.Current|http://www.softshell.net|S3 Weather Component (free)|0|”
com = com & vbnewline & “AuthNetSSLConnect.SSLPost|http://www.authorize.net|Authorize.Net Transaction COM (free)|10|11”
com = com & vbnewline & “HexValidEmail.Connection|http://www.hexillion.com|Hexillion - HexValidEmail|1|11”
com = com & vbnewline & “Hexillion.HexIcmp|http://www.hexillion.com|Hexillion - HexIcmp|0|”
com = com & vbnewline & “Hexillion.HexLookup|http://www.hexillion.com|Hexillion - HexLookup|0|”
com = com & vbnewline & “Hexillion.HexTcpQuery|http://www.hexillion.com|Hexillion - HexTcpQuery|0|”
com = com & vbnewline & “HexDns.Connection|http://www.hexillion.com|Hexillion - HexDSN|0|”
com = com & vbnewline & “ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - ocxQmail|1|”
com = com & vbnewline & “OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks - OCXHttp|0|”
com = com & vbnewline & “ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - OCXQMail|1|”
com = com & vbnewline & “VASPTV.ASPTreeView|http://www.visualasp.com|VisualASP - TreeView|0|”
com = com & vbnewline & “VASPLV.ASPListView|http://www.visualasp.com|VisualASP - ListView|0|”
com = com & vbnewline & “VASPMV.ASPMonthView|http://www.visualasp.com|VisualASP - MonthView|0|”
com = com & vbnewline & “VASPTB.ASPTabView|http://www.visualasp.com|VisualASP - TabView|0|”
com = com & vbnewline & “ASPWordToy.WordToy|http://www.asptoys.com|ASP Toys - WordToy (Word Converter)|6|”
com = com & vbnewline & “ASPTabToy.TabToy|http://www.asptoys.com|ASP Toys - TabToy|0|”
com = com & vbnewline & “aspZipCodeToy.ZipCodeToy|http://www.asptoys.com|ASP Toys - ASP ZipCodeToy|0|11”
com = com & vbnewline & “ASPCryptToy.CryptToy|http://www.asptoys.com|ASP Toys - CryptToy|9|”
com = com & vbnewline & “Convert.t2h|http://members.home.net/pjsteele/asp|CONVERT - string/html/text manipulation (free)|0|”
com = com & vbnewline & “APDocConv.Object|http://www.activepdf.com|activePDF - DocConverter|5|”
com = com & vbnewline & “APWebGrabber.Object|http://www.activepdf.com|activePDF - WebGrabber|5|”
com = com & vbnewline & “APServer.Object|http://www.activepdf.com|activePDF - activePDF Server|5|”
com = com & vbnewline & “APSpool.Object|http://www.activepdf.com|activePDF - Spooler|5|”
com = com & vbnewline & “APToolkit.Object|http://www.activepdf.com|activePDF - Toolkit|5|”
com = com & vbnewline & “shotgraph.image|http://www.shotgraph.com|Shot Graph|7|”
com = com & vbnewline & “IntrChart.Chart|http://www.compsysaus.com.au|IntrChart|7|”
com = com & vbnewline & “IntrSQL.Query|http://www.compsysaus.com.au|IntrSQL|0|”
com = com & vbnewline & “IntrPWD.Validate|http://www.compsysaus.com.au|IntrPWD|9|”
com = com & vbnewline & “IntrCard.Credit|http://www.compsysaus.com.au|IntrCard|0|11”
com = com & vbnewline & “AspSmartImage.SmartImage|http://www.aspsmart.com|ASP Smart - aspSmartImage|4|”
com = com & vbnewline & “AspSmartChat.SmartChat|http://www.aspsmart.com|ASP Smart - aspSmartChat|0|”
com = com & vbnewline & “AspSmartFile.SmartFile|http://www.aspsmart.com|ASP Smart - aspSmartFile|6|”
com = com & vbnewline & “aspSmartMenu.SmartMenuPopUp|http://www.aspsmart.com|ASP Smart - aspSmartMenu|0|”
com = com & vbnewline & “AspSmartDate.SmartDate|http://www.aspsmart.com|ASP Smart - aspSmartDate|0|”
com = com & vbnewline & “AspSmartUpload.SmartUpload|http://www.aspsmart.com|ASP Smart - aspSmartUpload|3|”
com = com & vbnewline & “aspSmartMail.SmartMail|http://www.aspsmart.com|ASP Smart - aspSmartMail|1|”
com = com & vbnewline & “aspSmartCache.SmartCache|http://www.aspsmart.com|ASP Smart - aspSmartCache|0|”
com = com & vbnewline & “xAuthorize.Charge|http://www.xauthorize.com|xAuthorize CC|10|11”
com = com & vbnewline & “acDesktop.Desktop|http://www.activecomponents.nu|acDesktop|0|”
com = com & vbnewline & “acNetwork.DNS|http://www.activecomponents.nu|acNetwork|0|”
com = com & vbnewline & “acSMTP.Smtp|http://www.activecomponents.nu|acSMTP SSL|9|”
com = com & vbnewline & “Temperature.Conversion|http://asp.myscripting.com/activextemp.asp|Temperature Conversion|0|”
com = com & vbnewline & “cyScape.browserObj|http://www.cyscape.com|BrowserHawk|2|11”
com = com & vbnewline & “dkQmail.Qmail||dkQMail|1|”
com = com & vbnewline & “Geocel.Mailer|http://www.geocel.com|GeoCel|1|”
com = com & vbnewline & “iismail.iismail.1||IISMail|1|”
com = com & vbnewline & “SmtpMail.SmtpMail.1||SMTP|1|”
com = com & vbnewline & “OpenX2.Connection|http://www.openx.ca|OpenX|1|”
com = com & vbnewline & “ABMailer.Mailman|http://www.absoftwarex.com/abmailer|ABMailer|1|”
com = com & vbnewline & “c2geread.Message|http://www.componentstogo.com|C2GEread|1|”
com = com & vbnewline & “C2G.SCM|http://www.componentstogo.com|C2GSCM|0|8”
com = com & vbnewline & “C2GSCM.Service|http://www.componentstogo.com|C2GSCM|8|0”
com = com & vbnewline & “C2G.SCAN|http://www.componentstogo.com|C2GSCAN|0|”
com = com & vbnewline & “C2G.whois|http://www.componentstogo.com|C2GWHOIS |0|”
com = com & vbnewline & “c2g.http|http://www.componentstogo.com|C2GHttp |0|”
com = com & vbnewline & “C2G.Ping|http://www.componentstogo.com|C2GPing|0|”
com = com & vbnewline & “C2G.Tracert|http://www.componentstogo.com|C2GTracert|0|”
com = com & vbnewline & “ANUPLOAD.OBJ|http://www.adminsystem.net/webapp/popcom|ANPOP|1|”
com = com & vbnewline & “ASPXP.Mail|http://aspxp.com/free_stuff/aspxpmail|ASPXPMail (free)|1|”
com = com & vbnewline & “ActiveMessenger.Message|http://www.infomentum.com|ActiveMessenger|1|”
com = com & vbnewline & “ActiveFile.Post|http://www.infomentum.com|ActiveFile|3|”
com = com & vbnewline & “ActiveNavigator.Toolbar|http://www.infomentum.com|ActiveNavigator|0|”
com = com & vbnewline & “ActiveProfile.Profile|http://www.infomentum.com|ActiveProfile|2|9”
com = com & vbnewline & “DartZip.Zip.1|http://www.dart.com|Dart Zip Compression Tool|6|”
com = com & vbnewline & “Dart.Ftp.1|http://www.dart.com|Dart FTP Tool|6|0”
com = com & vbnewline & “Dart.Pop.1|http://www.dart.com|Dart POP Mail|1|”
com = com & vbnewline & “Dart.Ping.1|http://www.dart.com|Dart Ping|0|”
com = com & vbnewline & “Dart.Dns.1|http://www.dart.com|Dart DNS|0|”
com = com & vbnewline & “Dart.Smtp.1|http://www.dart.com|Dart SMTP|1|”
com = com & vbnewline & “Dart.Telnet.1|http://www.dart.com|Dart PowerTCP Telnet Tool|0|”
com = com & vbnewline & “Dart.Http.1|http://www.dart.com|Dart HTTP|0|”
com = com & vbnewline & “Dart.Tcp.1|http://www.dart.com|Dart TCP|0|”
com = com & vbnewline & “Dart.WebPage.1|http://www.dart.com|Dart WebPage|0|”
com = com & vbnewline & “Dart.WebASP.1|http://www.dart.com|Dart ASP|0|”
com = com & vbnewline & “Dart.Message.1|http://www.dart.com|Dart Message|0|”
com = com & vbnewline & “Dart.Manager.1|http://www.dart.com|Dart Manager|0|”
com = com & vbnewline & “quicktab.quicktabs|http://www.webintel.net|Quicktab|0|”
com = com & vbnewline & “waspzip.waspzip|http://www.webintel.net|Wasp Zip|6|5”
com = com & vbnewline & “easyBarCode.aspBarCode|http://www.mitdata.com|aspEasyBarCode|7|0”
com = com & vbnewline & “aspZip.EasyZIP|http://www.mitdata.com|aspEasyZIP|6|5”
com = com & vbnewline & “aspPDF.EasyPDF|http://www.mitdata.com|aspEasyPDF|5|6”
com = com & vbnewline & “aspCrypt.EasyCRYPT|http://www.mitdata.com|aspEasyCRYPT|9|”
com = com & vbnewline & “objBarGraph.DrawChart|http://www.livesoup.com/bargraph.asp|BarGraph (free)|7|”
com = com & vbnewline & “LyfUpload.UploadFile|http://www.21jsp.com|LyfUpload (free)|3|”
com = com & vbnewline & “lyfimage.image|http://www.21jsp.com|LyfImage (free)|4|7”
com = com & vbnewline & “ASPControlHost.Host|http://release-systems.8m.com/asphost.html|ASPControlHost|7|4”
com = com & vbnewline & “GSServer.GSServerProp|http://www.graphicsserver.com|Graphics Server|4|7”
com = com & vbnewline & “ASPPicture.Picture|http://www.unchanged.net|ASPPicture|4|”
com = com & vbnewline & “COMobjectsNET.IconGrabber|http://www.comobjects.net|COMobjects.NET Icon Grabber|4|”
com = com & vbnewline & “COMobjects.NET.PictureProcessor|http://www.comobjects.net|COMobjects.NET Picture Processor|4|”
com = com & vbnewline & “COMobjectsNET.PictureGalleryPro|http://www.comobjects.net|COMobjects.NET Picture Gallery Pro|4|”
com = com & vbnewline & “COMobjectsNET.Colorizer|http://www.comobjects.net|COMobjects.NET Colorizer|4|”
com = com & vbnewline & “COMobjectsNET.PieChart|http://www.comobjects.net|COMobjects.NET 3D Pie Chart|7|4”
com = com & vbnewline & “ChartDirector.API|http://www.advsofteng.com|ChartDirector|7|”
com = com & vbnewline & “Stonebroom.ASPointer|http://www.stonebroom.com|Stonebroom.ASPointer|13|5”
com = com & vbnewline & “Stonebroom.ASP2XML|http://www.stonebroom.com|Stonebroom.ASP2XML|13|5”
com = com & vbnewline & “Stonebroom.RegEx|http://www.stonebroom.com|Stonebroom.RegEx|0|”
com = com & vbnewline & “Stonebroom.RemoteZip|http://www.stonebroom.com|Stonebroom.RemoteZip|5|6”
com = com & vbnewline & “Stonebroom.SaveForm|http://www.stonebroom.com|Stonebroom.SaveForm|12|”
com = com & vbnewline & “Stonebroom.ServerZip|http://www.stonebroom.com|Stonebroom.ServerZip|5|6”
com = com & vbnewline & “Stonebroom.XSLTransform|http://www.stonebroom.com|Stonebroom.XSLTransform|13|5”
com = com & vbnewline & “OpenX.DBMail|http://www.openx.ca|OpenX DBMail|1|12”
com = com & vbnewline & “com.comsoltech.CGI|http://www.comsoltech.com|com.comsoltech.CGI (free)|12|”
com = com & vbnewline & “Datafun.FormBoy|http://www.datafun.net|FormBoy|12|10”
com = com & vbnewline & “AddressTools.ZIPCheck|http://www.addresstools.com|AddressTools - ZIPCheck|11|12”
com = com & vbnewline & “AddressTools.EmailCheck|http://www.addresstools.com|AddressTools - EmailCheck|11|12”
com = com & vbnewline & “VisualSoft.Mail.1|http://www.visualmart.com|VisualSoft Mail|1|”
com = com & vbnewline & “VisualSoft.BLOWFISHCrypt.1|http://www.visualmart.com|VisualSoft Crypt|9|”
com = com & vbnewline & “VisualSoft.FTP.1|http://www.visualmart.com|VisualSoft FTP|6|0”
com = com & vbnewline & “VisualSoft.HTTP.1|http://www.visualmart.com|VisualSoft HTTP|2|0”
com = com & vbnewline & “VisualSoft.Chart.1|http://www.visualmart.com|VisualSoft Chart|7|”
com = com & vbnewline & “VisualSoft.DMXML.1|http://www.visualmart.com|VisualSoft XMLPro|13|”
com = com & vbnewline & “VisualSoft.DataAdmin.1|http://www.visualmart.com|VisualSoft DataAdmin|0|”
com = com & vbnewline & “QwerkSoft.FormSlam|http://www.qwerksoft.com|Form Slam|12|11”
com = com & vbnewline & “SiteAdmin.AdminTools|http://components.sitetown.com|SiteSecurity|9|”
com = com & vbnewline & “SiteSecurity.Login|http://components.sitetown.com|SiteSecurity|9|”
com = com & vbnewline & “FileDownload.Manager|http://components.sitetown.com|File Download|6|0”
com = com & vbnewline & “EasyDb.Database|http://components.sitetown.com|Easy DB|0|”
com = com & vbnewline & “AbsoluteHttp.Conn|http://www.speeq.com|AbsoluteHTTP|0|”
com = com & vbnewline & “ASPCharge.CC|http://www.bluesquirrel.com|A$PCharge|10|11”
com = com & vbnewline & “ProjectDisplay.Charts|http://www.aspkey.com|ASPkey ProjectDisplay|0|”
com = com & vbnewline & “IPWorksASP.SOAP|www.nsoftware.com|IP Works Soap|13|”
com = com & vbnewline & “IPWorksASP.FileMailer|www.nsoftware.com|IP Works FileMailer|1|6”
com = com & vbnewline & “IPWorksASP.FTP|www.nsoftware.com|IP Works FTP|0|”
com = com & vbnewline & “IPWorksASP.HTMLMailer|www.nsoftware.com|IP Works HTMLMailer|1|”
com = com & vbnewline & “IPWorksASP.HTTP|www.nsoftware.com|IP Works HTTP|13|0”
com = com & vbnewline & “IPWorksASP.ICMPPort|www.nsoftware.com|IP Works ICMPPort|0|”
com = com & vbnewline & “IPWorksASP.IMAP|www.nsoftware.com|IP Works IMAP|0|”
com = com & vbnewline & “IPWorksASP.IPInfo|www.nsoftware.com|IP Works IPInfo|0|”
com = com & vbnewline & “IPWorksASP.IPPort|www.nsoftware.com|IP Works IPPort|0|”
com = com & vbnewline & “IPWorksASP.LDAP|www.nsoftware.com|IP Works LDAP|0|”
com = com & vbnewline & “IPWorksASP.MCast|www.nsoftware.com|IP Works MCast|0|”
com = com & vbnewline & “IPWorksASP.MIME|www.nsoftware.com|IP Works MIME|1|”
com = com & vbnewline & “IPWorksASP.MX|www.nsoftware.com|IP Works MX|1|”
com = com & vbnewline & “IPWorksASP.NetClock|www.nsoftware.com|IP Works NetClock|0|”
com = com & vbnewline & “IPWorksASP.NetCode|www.nsoftware.com|IP Works NetCode|0|”
com = com & vbnewline & “IPWorksASP.NetDial|www.nsoftware.com|IP Works NetDial|0|”
com = com & vbnewline & “IPWorksASP.NNTP|www.nsoftware.com|IP Works NNTP|0|”
com = com & vbnewline & “IPWorksASP.Ping|www.nsoftware.com|IP Works Ping|0|”
com = com & vbnewline & “IPWorksASP.POP|www.nsoftware.com|IP Works POP|1|”
com = com & vbnewline & “IPWorksASP.RCP|www.nsoftware.com|IP Works RCP|6|0”
com = com & vbnewline & “IPWorksASP.Rexec|www.nsoftware.com|IP Works Rexec|0|”
com = com & vbnewline & “IPWorksASP.Rshell|www.nsoftware.com|IP Works Rshell|0|”
com = com & vbnewline & “IPWorksASP.SMTP|www.nsoftware.com|IP Works SMTP|1|”
com = com & vbnewline & “IPWorksASP.SNMP|www.nsoftware.com|IP Works SNMP|1|0”
com = com & vbnewline & “IPWorksASP.SNPP|www.nsoftware.com|IP Works SNPP|13|0”
com = com & vbnewline & “IPWorksASP.Telnet|www.nsoftware.com|IP Works Telnet|0|”
com = com & vbnewline & “IPWorksASP.TFTP|www.nsoftware.com|IP Works TFTP|0|”
com = com & vbnewline & “IPWorksASP.TraceRoute|www.nsoftware.com|IP Works TraceRoute|0|”
com = com & vbnewline & “IPWorksASP.UDPPort|www.nsoftware.com|IP Works UDPPort|0|”
com = com & vbnewline & “IPWorksASP.WebForm|www.nsoftware.com|IP Works WebForm|12|”
com = com & vbnewline & “IPWorksASP.WebUpload|www.nsoftware.com|IP Works WebUpload|3|”
com = com & vbnewline & “IPWorksASP.Whois|www.nsoftware.com|IP Works Whois|0|”
com = com & vbnewline & “IPWorksASP.XMLp|www.nsoftware.com|IP Works XMLp|13|”
com = com & vbnewline & “iisCC.cc|http://www.iiscart.com|IIS Cart - iisCARTcc|0|11”
com = com & vbnewline & “Coalesys.CSPanelBar.2|http://www.coalesys.com|CSPanelBar|0|”
com = com & vbnewline & “Coalesys.CSWebMenu.1|http://www.coalesys.com|CSWebMenu|0|3”
com = com & vbnewline & “TCPIP.DNS|http://www.pstruh.cz/help/tcpip/library.htm|Simple DNS+Traceroute|0|”
com = com & vbnewline & “DrWFM.fm|http://www.dataroad.sk/dr/drwfm/default.asp|DrWebFileManager|6|”
com = com & vbnewline & “id3.id3get|WEBSITE.WS - Your Internet Address For Life™ ID3.ID3Get|0|”
com = com & vbnewline & “Atrax.ComboBox|WEBSITE.WS - Your Internet Address For Life™ ComboBox|0|”
com = com & vbnewline & “Atrax.URLGrabber|WEBSITE.WS - Your Internet Address For Life™ URLGrabber|0|13”
com = com & vbnewline & “Atrax.Whois|http://www.infinitemonkeys.ws|Atrax Whois|0|”
com = com & vbnewline & “SOFTWING.ASPEventlog|http://www.alphasierrapapa.com|Asp Event log (FREE)|8|0”
com = com & vbnewline & “Softwing.EventLogReader|http://www.alphasierrapapa.com|Event Log Reader (FREE)|0|”
com = com & vbnewline & “Softwing.AspQPerfCounters|http://www.alphasierrapapa.com|AspQPerfCounters|8|0”
com = com & vbnewline & “SOFTWING.AspTear|http://www.alphasierrapapa.com|AspTear|8|0”
com = com & vbnewline & “AspTouch.TouchIt|http://www.alphasierrapapa.com|AspTouch TouchIt (FREE)|8|0”
com = com & vbnewline & “Softwing.FileCache.1|http://www.alphasierrapapa.com|Softwing FileCache (FREE)|8|0”
com = com & vbnewline & “Softwing.LocaleFormatter|http://www.alphasierrapapa.com|LocaleFormatter (FREE)|0|”
com = com & vbnewline & “Softwing.MacBinary|http://www.alphasierrapapa.com|MacBinary Xtraction (FREE)|6|”
com = com & vbnewline & “Softwing.OdbcRegTool|http://www.alphasierrapapa.com|OdbcRegTool (FREE)|8|0”
com = com & vbnewline & “Softwing.Profiler|http://www.alphasierrapapa.com|Softwing ASP Script Speed Profiler (FREE)|0|”
com = com & vbnewline & “AlphaSierraPapa.AspRegSvr|http://www.alphasierrapapa.com|RegServer [component registration via ASP] (FREE!!)|8|0”
com = com & vbnewline & “Softwing.VersionInfo|http://www.alphasierrapapa.com|VersionInfo|8|0”
com = com & vbnewline & “w3info.w3info.1|http://www.alphasierrapapa.com|W3 Info|0|”
com = com & vbnewline & “SoftwingXSB.ShoppingBag|http://www.alphasierrapapa.com|Softwing ShoppingBag|10|”
com = com & vbnewline & “crossoft.quickcal|http://www.quickgallery.com|Quick Calendar|0|”
com = com & vbnewline & “crossoft.wapsplash|http://www.quickgallery.com|QuickDeck|0|”
com = com & vbnewline & “crossoft.waplist|http://www.quickgallery.com|QuickDeck|0|”
com = com & vbnewline & “crossoft.remotescript|http://www.quickgallery.com|QuickList|0|”
com = com & vbnewline & “crossoft.quicklist|http://www.quickgallery.com|QuickList|0|”
com = com & vbnewline & “crossoft.quicktable|http://www.quickgallery.com|QuickTable|0|”
com = com & vbnewline & “OneTouchASP.StrFunctions|http://www.1touchasp.com|1Touch|0|”
com = com & vbnewline & “ZmeYsoft.Hashes.MD5|http://www.newobjects.com|ZmeYsoft MD5 Hash|9|0”
com = com & vbnewline & “binarysendfile.BinFileSend|http://www.newobjects.com|Binarysendfile component|0|”
com = com & vbnewline & “werkslib.mp3exp|Thomas Marban トマス (っಠ‿ಠ)っ - MP3|0|”
com = com & vbnewline & “TreeGen.Tree|http://www.treegen.com|Tree Gen|0|”
com = com & vbnewline & “Text2Tree150d.tree|http://www.asp-components.de|Text2Tree|0|”
com = com & vbnewline & “ASPBarChart100d.chart|http://www.asp-components.de|Bar Chart|8|0”
com = com & vbnewline & “AspWebCal120d.webcal|http://www.asp-components.de|ASP WebCalendar|0|”
com = com & vbnewline & “ScriptUtils.ASPForm|http://pstruh.cz/help/ScptUtl/library.htm|Simple Upload|3|0”
com = com & vbnewline & “ScriptUtils.ByteArray|http://pstruh.cz/help/ScptUtl/library.htm|Simple Download|0|”
com = com & vbnewline & “ScriptUtils.Kernel|http://pstruh.cz/help/ScptUtl/library.htm|ASP Timing|0|”
com = com & vbnewline & “Scribe.ScribeDOM|http://www.innuvo.com|ScribeDOM|13|”
com = com & vbnewline & “ANPOP.POPMSG|http://www.adminsystem.net|ANPOP |1|”
com = com & vbnewline & “ANSMTP.OBJ|http://www.adminsystem.net|ANSMTP|1|”
com = com & vbnewline & “ANUPLOAD.OBJ|http://www.adminsystem.net|ANUPLOAD (free)|3|”
com = com & vbnewline & “VoiceShot.VoiceShot|http://www.voiceshot.com/api/readme.htm|ASP Call|0|”
com = com & vbnewline & “SimplePageASP.SNPP|http://www.rushweb.com|SimplePageASP SNPP|0|”
com = com & vbnewline & “khttp.inet|http://www.rainfall.com|KHTTP|13|0”
com = com & vbnewline & “OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks OCXHttp|13|0”
com = com & vbnewline & “URLFetch.URLFetch|http://www.screen-scraper.com|URLFetch|13|0”
com = com & vbnewline & “Dundas.Mailer|http://www.dundas.com|Dundas Mailer|1|”
com = com & vbnewline & “Dundas.Mailer.1|http://www.dundas.com|Dundas Mailer|1|”
com = com & vbnewline & “Dundas.PieChartServer.1|http://www.dundas.com|Dundas PieChartServer|7|”
com = com & vbnewline & “Dundas.Upload|http://www.dundas.com|Dundas Upload|3|”
com = com & vbnewline & “Dundas.Upload.2|http://www.dundas.com|Dundas Upload|3|”
com = com & vbnewline & “Dundas.ChartServer|http://www.dundas.com|Dundas ChartServer|7|”
com = com & vbnewline & “Dundas.ChartServer2D.1|http://www.dundas.com|Dundas ChartServer 2D|7|”
com = com & vbnewline & “ABCUpload4.XForm|http://www.websupergoo.com|ABC Upload|3|”
com = com & vbnewline & “ABCpdf3.Doc|http://www.websupergoo.com|ABC PDF|0|”
com = com & vbnewline & “ImageGlue5.Canvas|http://www.websupergoo.com|Image Glue|4|”
com = com & vbnewline & “ImageEffects.FX|http://www.websupergoo.com|Image Effects|4|”
com = com & vbnewline & “ABCDrawHTML.Page|http://www.websupergoo.com|ABC Draw HTML|4|0”
com = com & vbnewline & “ABCCrypto2.Crypto|http://www.websupergoo.com|ABC Crypto|9|”
com = com & vbnewline & “MetaFiler2.File|http://www.websupergoo.com|MetaFiler|4|”
com = com & vbnewline & “XceedSoftware.XceedZip|http://www.xceedsoft.com|XceedZip|5|”
com = com & vbnewline & “Xceed.BinaryEncoding|http://www.xceedsoft.com|Xceed Binary Encoding|0|”
com = com & vbnewline & “Xceed.Base64Encoding|http://www.xceedsoft.com|Xceed Base 64 Encoding|0|”
com = com & vbnewline & “Xceed.Encryption|http://www.xceedsoft.com|Xceed Encryption|9|0”
com = com & vbnewline & “Xceed.TwofishEncryptionMethod|http://www.xceedsoft.com|Xceed Two fish Encryption Method|9|0”
com = com & vbnewline & “Xceed.HavalHashingMethod|http://www.xceedsoft.com|Xceed Haval Hashing Method|9|0”
com = com & vbnewline & “XceedSoftware.XceedFtp|http://www.xceedsoft.com|Xceed Ftp|8|0”
com = com & vbnewline & “Xceed.StreamingCompression|http://www.xceedsoft.com|Xceed Streaming Compression|0|”
com = com & vbnewline & “Xceed.DeflateCompression|http://www.xceedsoft.com|Xceed Deflate Compression|0|”
'com = com & vbnewline & “|http://www.xceedsoft.com|Xceed ||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”

com = Split(com, vbnewline)

cat = “Miscellaneous” ’ 0
cat = cat & “|Email” ’ 1
cat = cat & “|Browser” ’ 2
cat = cat & “|Upload” ’ 3
cat = cat & “|Image” ’ 4
cat = cat & “|Documents” ’ 5
cat = cat & “|File Management” ’ 6
cat = cat & “|Graphs & Charts” ’ 7
cat = cat & “|Server Management” ’ 8
cat = cat & “|Users & Security” ’ 9
cat = cat & “|E-Commerce” ’ 10
cat = cat & “|Validation” ’ 11
cat = cat & “|Forms” ’ 12
cat = cat & “|XML” ’ 13

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

ASP Component Test - http://www.pensaworks.com <% 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) %>
Component Details
<% Set b = New ProgIDInfo Set a = b.LoadProgID(comCreate) if a.Description <> "" then %> Component: <%=comName%>
Website: <% if comURL <> "" then %><%=comURL%><% end if %>
Category(s): <%=cat(comCat)%><% if comCat2 <> "" then %> | <%=cat(comCat2)%><% end if %>
Description: <%= a.Description %>
DLLName: <%=a.DLLName%>
ProgID: <%=a.ProgID%>
ClsID: <%=a.ClsID%>
Path: <%=a.Path%>
TypeLib: <%=a.TypeLib%>
Version: <%=a.Version%>
<% else %> No Information could be found for: <%=comName%> <% end if %>

Close Window

? 2002, PensaWorks, inc.
All Rights Reserved.

<% else %>
ASP Component Test

This Component Test simply checks to see if the various components are installed by trying to create the server object the component uses. It does not guarantee that the component is configured to work properly. If you have any questions regarding a specific component, you should contact your hosting company or the component manufacturer. Please send us any feedback, bugs, or requests you may have. They are greatly appreciated! This script was last updated <%=lastUpdate%>. <% if newVersion then %>

This is not the latest version of the Component Test. You can download the latest version here.

<% end if %>

Component Test Mailinglist
We are constantly making changes and updating the component tests to add new features and more components to the list. Join the mailinglist and be the first to know when we release an update! View our Privacy Policy.
Name:     Email Address:

Please wait while testing <%=(UBound(com) + 1)%> components. This may take a few seconds to load.

<% response.flush() %> <% 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 %> <% else %> <% end If %> <% end if installed = "" : comCreate = "" : comURL = "" : comName = "" : comCat = "" : comCat2 = "" next response.flush() %> <% if onNum = 0 then %> <% end if %>
">
Show: From:
# Category Status Details Com
<%=(onNum)%> <% if IsNumeric(showCat) then %><%=cat(showCat)%><% else %><%=cat(comCat)%><% end if %>
<% if NOT installed then %> Not Installed <% else installedCOMs = installedComs + 1 %> Installed <% end if %>
<% if NOT installed then %> None Available <% else %> ?comID=<%=i%>')">COM Details <% end if %>
<% if comURL <> "" then %><%=comName%><% else %><%=comName%><% end if %>
You do not have any components installed for your selections.

 

You have a total of <%=installedCOMs%> COMs installed out of <%=onNum%> checked.

? 2002, PensaWorks, inc.
All Rights Reserved.

<% end if %> <% 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
%>
[/PHP]

The test_asp_components.asp (the recently downloaded page)

[PHP]
<%@Language=“VBScript”%>
<%
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’
’ ASP Component Test
’ ? 2001 James Harris, All Rights Reserved
’ For help with this script, please visit http://www.pensaworks.com
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’

on error resume next
response.buffer = true
server.scripttimeout = 1000

installedCOMs = 0
onNum = 0
lastUpdate = “4/3/2003”
newVersion = False

’ The Components
’ format: comObject|comURL|comName|comCategory|comCategory2
com = “CDONTS.NewMail|http://www.microsoft.com|CDONTS (free)|1|”
com = com & vbnewline & “MSWC.NextLink|Microsoft Learn: Build with answers in reach Content Linking Component|0|”
com = com & vbnewline & “MSWC.BrowserType|Technical documentation | Microsoft Learn Browser Capability|2|”
com = com & vbnewline & “MSWC.ContentRotator|Microsoft Learn: Build with answers in reach Content Rotator|0|”
com = com & vbnewline & “MSWC.AdRotator|Microsoft Learn: Build with answers in reach Ad Rotator|0|”
com = com & vbnewline & “MSWC.PermissionChecker|Microsoft Learn: Build with answers in reach Permission Checker Component|0|”
com = com & vbnewline & “MSWC.Status|Microsoft Learn: Build with answers in reach Status Component|0|”
com = com & vbnewline & “MSWC.Tools|Microsoft Learn: Build with answers in reach Tools Component|0|”
com = com & vbnewline & “MSWC.PageCounter|Microsoft Learn: Build with answers in reach Page Counter Component|0|”
com = com & vbnewline & “MSWC.IISLog|Microsoft Learn: Build with answers in reach Logging Utility Component|0|”
com = com & vbnewline & “MSXML2.ServerXMLHTTP|Microsoft Learn: Build with answers in reach ServerXMLHTTP|13|”
com = com & vbnewline & “Microsoft.XMLDOM|http://www.microsoft.com|Microsoft XMLDOM Component|13|”
com = com & vbnewline & “Microsoft.XMLHTTP|http://www.microsoft.com|Microsoft XMLHTTP Component|13|”
com = com & vbnewline & “Scripting.FileSystemObject|http://www.microsoft.com|MicrosoftFileSystem Object|6|”
com = com & vbnewline & “ADOX.Catalog|http://www.microsoft.com|MicroSoft ADOX Catalog|0|”
com = com & vbnewline & “WScript.Shell|http://www.microsoft.com|Windows Script Shell|0|”
com = com & vbnewline & “WScript.Network|http://www.microsoft.com|Windows Script Network|0|”
com = com & vbnewline & “ADODB.Connection|http://www.microsoft.com|ADODB.Connection|0|”
com = com & vbnewline & “ADODB.Command|http://www.microsoft.com|ADODB.Command|0|”
com = com & vbnewline & “ADODB.Recordset|http://www.microsoft.com|ADODB.Recordset|0|”
com = com & vbnewline & “Scripting.Dictionary|http://www.microsoft.com|Scripting.Dictionary|0|”
com = com & vbnewline & “ASPFileUpload.File|http://support.microsoft.com/default.aspx?scid=kb;EN-US;q299692|MicroSoft File Upload|3|0”
com = com & vbnewline & “Scripting.Encoder|http://www.microsoft.com|Script Encoder|0|”
com = com & vbnewline & “Msxml2.DOMDocument.3.0|http://www.microsoft.com|Microsoft XMLDOM 3.0 Component|13|”
com = com & vbnewline & “Msxml2.DOMDocument.4.0|Microsoft Learn: Build with answers in reach XMLDOM 4.0 Component|13|”
com = com & vbnewline & “SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPMail|1|”
com = com & vbnewline & “SMTPsvg.Mailer|http://www.serverobjects.com|Server Objects - ASPQMail|1|”
com = com & vbnewline & “AspImage.Image|http://www.serverobjects.com|Server Objects - ASPImage|4|”
com = com & vbnewline & “POP3svg.Mailer|http://www.serverobjects.com|Server Objects - ASPPop3|1|”
com = com & vbnewline & “AspNNTP.Conn|http://www.serverobjects.com|Server Objects - AspNNTP|0|”
com = com & vbnewline & “AspFile.FileObj|http://www.serverobjects.com|ServerObjects - AspFile|6|”
com = com & vbnewline & “AspConv.Expert|http://www.serverobjects.com|ServerObjects - AspConv|0|”
com = com & vbnewline & “AspHTTP.Conn|http://www.serverobjects.com|ServerObjects - AspHTTP|0|”
com = com & vbnewline & “AspDNS.Lookup|http://www.serverobjects.com|ServerObjects - AspDNS|0|”
com = com & vbnewline & “AspMX.Lookup|http://www.serverobjects.com|ServerObjects - AspMX|1|”
com = com & vbnewline & “WaitFor.Comp|http://www.serverobjects.com|ServerObjects - Waitfor (free)|0|”
com = com & vbnewline & “LastMod.FileObj|http://www.serverobjects.com|ServerObjects - Last Modified (free)|6|”
com = com & vbnewline & “ImgSize.Check|http://www.serverobjects.com|ServerObjects - Image Size (free)|4|”
com = com & vbnewline & “GuidMakr.GUID|http://www.serverobjects.com|ServerObjects - GUID Maker (free)|0|”
com = com & vbnewline & “ASPsvg.Process|http://www.serverobjects.com|ServerObjects - AspProc (free)|0|”
com = com & vbnewline & “AspPing.Conn|http://www.serverobjects.com|ServerObjects - AspPing (free)|0|”
com = com & vbnewline & “AspInet.FTP|http://www.serverobjects.com|ServerObjects - AspInet (free)|0|”
com = com & vbnewline & “ASPExec.Execute|http://www.serverobjects.com|ServerObjects - AspExec (free)|0|”
com = com & vbnewline & “AspCrypt.Crypt|http://www.serverobjects.com|ServerObjects - AspCryp (free)|9|”
com = com & vbnewline & “Bible.Lookup|http://www.serverobjects.com|ServerObjects - AspBible (free)|0|”
com = com & vbnewline & “SoftArtisans.SAFile|http://www.softartisans.com|SoftArtisians Fileup|3|”
com = com & vbnewline & “SoftArtisans.FileManager|http://www.softartisans.com|SoftArtisians FileManager|6|”
com = com & vbnewline & “SoftArtisans.XFRequest|http://www.softartisans.com|SoftArtisians X-File|6|”
com = com & vbnewline & “SoftArtisans.FileManagerTX|http://www.softartisans.com|SoftArtisians FileManagerTX|6|”
com = com & vbnewline & “SoftArtisans.SASessionPro.1|http://www.softartisans.com|SoftArtisans SA-Session Pro|0|”
com = com & vbnewline & “SMUM.XCheck.1|http://www.softartisans.com|SoftArtisians Check (form validator)|11|”
com = com & vbnewline & “Softartisans.Archive|http://www.softartisans.com|SoftArtisans Archive|6|”
com = com & vbnewline & “SoftArtisans.SMTPMail|http://www.softartisans.com|SoftArtisans SMTPmail|1|”
com = com & vbnewline & “Softartisans.ExcelWriter|http://www.softartisans.com|SoftArtisans Excel Writer|5|”
com = com & vbnewline & “SoftArtisans.Groups|http://www.softartisans.com|SoftArtisans.Groups (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.Performance|http://www.softartisans.com|SoftArtisians.Performance (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.RAS|http://www.softartisans.com|SoftArtisans.RAS (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.Shares|http://www.softartisans.com|SoftArtisans.Shares (SA-Admin)|9|”
com = com & vbnewline & “SoftArtisans.User|http://www.softartisans.com|SoftArtisans.User (SA-Admin)|9|”
com = com & vbnewline & “Jmail.smtpmail|http://www.dimac.net|w3 JMail|1|”
com = com & vbnewline & “w3sitetree.tree|http://www.dimac.net|w3 Site Tree : www.dimac.net|0|”
com = com & vbnewline & “w3.upload|http://www.dimac.net|w3 Upload|3|”
com = com & vbnewline & “w3.netutils|http://www.dimac.net|w3 Utils|0|”
com = com & vbnewline & “Socket.TCP|http://www.dimac.net|w3 Sockets|0|”
com = com & vbnewline & “w3.netutils|http://www.dimac.net|w3 NetDebug|0|”
com = com & vbnewline & “Persits.MailSender|http://www.persits.com|Persits - ASPEmail|1|”
com = com & vbnewline & “Persits.Upload.1|http://www.persits.com|Persits - ASPUpload|3|”
com = com & vbnewline & “Persits.Jpeg|http://www.persits.com|Persits - AspJpeg|4|”
com = com & vbnewline & “Persits.Grid|http://www.persits.com|Persits - AspGrid|0|”
com = com & vbnewline & “Persits.AspUser|http://www.persits.com|Persits - AspUser|9|”
com = com & vbnewline & “Persits.CryptoManager|http://www.persits.com|Persits - AspEncrypt|9|”
com = com & vbnewline & “ADISCON.SimpleMail.1|http://www.simplemail.adiscon.com/en|SimpleMail|1|”
com = com & vbnewline & “CalendarCom.CalendarStuff|http://www.devguru.com|DevGuru - dgcalendar|0|”
com = com & vbnewline & “dgEncrypt.Key|http://www.devguru.com|DevGuru - dgEncrypt|9|”
com = com & vbnewline & “dgFileUpload.dgUpload|http://www.devguru.com|DevGuru - dgFileup|3|”
com = com & vbnewline & “dgReport.Report|http://www.devguru.com|DevGuru - dgReport|0|”
com = com & vbnewline & “dgSort.QuickSort|http://www.devguru.com|DevGuru - dgSort|0|”
com = com & vbnewline & “dgTree.Tree|http://www.devguru.com|DevGuru - dgTree|0|”
com = com & vbnewline & “Dundas.Mailer|http://www.dundas.com|Dundas - ASPMailer|1|”
com = com & vbnewline & “Dundas.PieChartServer.2|http://www.dundas.com|Dundas - Pie Chart Server Control|7|”
com = com & vbnewline & “Dundas.Upload|http://www.dundas.com|Dundas - Upload|3|”
com = com & vbnewline & “EasyMail.SMTP.5|http://www.quiksoft.com|Quicksoft - EasyMail (free)|1|”
com = com & vbnewline & “AspPing.Conn|http://www.15seconds.com/component/pg000229.htm|ASP Ping|0|”
com = com & vbnewline & “Dynu.CreditCard|http://www.dynu.com|Dynu CreditCard|10|11”
com = com & vbnewline & “Dynu.DateTime|http://www.dynu.com|Dynu DateTime|0|”
com = com & vbnewline & “Dynu.DNS|http://www.dynu.com|Dynu DNS|0|”
com = com & vbnewline & “Dynu.Exec|http://www.dynu.com|Dynu Exec|0|”
com = com & vbnewline & “Dynu.Email|http://www.dynu.com|Dynu Email|1|”
com = com & vbnewline & “Dynu.Encrypt|http://www.dynu.com|Dynu Encrypt|9|”
com = com & vbnewline & “Dynu.FileUtil|http://www.dynu.com|Dynu File|6|”
com = com & vbnewline & “Dynu.FTP|http://www.dynu.com|Dynu FTP|0|6”
com = com & vbnewline & “Dynu.HTTP|http://www.dynu.com|Dynu HTTP|0|”
com = com & vbnewline & “Dynu.POP3|http://www.dynu.com|Dynu POP3|1|”
com = com & vbnewline & “Dynu.Ping|http://www.dynu.com|Dynu Ping|0|”
com = com & vbnewline & “Dynu.TCPSocket|http://www.dynu.com|Dynu TCPSocket|0|”
com = com & vbnewline & “Dynu.StringUtil|http://www.dynu.com|Dynu String|0|”
com = com & vbnewline & “Dynu.Upload|http://www.dynu.com|Dynu Upload|3|”
com = com & vbnewline & “Dynu.Wait|http://www.dynu.com|Dynu Wait|0|”
com = com & vbnewline & “Dynu.Whois|http://www.dynu.com|Dynu Whois|0|”
com = com & vbnewline & “MP_Mikys_ASP.Password|http://www.mikys-asp.nykoping.net/Password|ASP Password|9|”
com = com & vbnewline & “S3Weather.Current|http://www.softshell.net|S3 Weather Component (free)|0|”
com = com & vbnewline & “AuthNetSSLConnect.SSLPost|http://www.authorize.net|Authorize.Net Transaction COM (free)|10|11”
com = com & vbnewline & “HexValidEmail.Connection|http://www.hexillion.com|Hexillion - HexValidEmail|1|11”
com = com & vbnewline & “Hexillion.HexIcmp|http://www.hexillion.com|Hexillion - HexIcmp|0|”
com = com & vbnewline & “Hexillion.HexLookup|http://www.hexillion.com|Hexillion - HexLookup|0|”
com = com & vbnewline & “Hexillion.HexTcpQuery|http://www.hexillion.com|Hexillion - HexTcpQuery|0|”
com = com & vbnewline & “HexDns.Connection|http://www.hexillion.com|Hexillion - HexDSN|0|”
com = com & vbnewline & “ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - ocxQmail|1|”
com = com & vbnewline & “OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks - OCXHttp|0|”
com = com & vbnewline & “ocxQmail.ocxQmailCtrl.1|http://www.flicks.com|Flicks - OCXQMail|1|”
com = com & vbnewline & “VASPTV.ASPTreeView|http://www.visualasp.com|VisualASP - TreeView|0|”
com = com & vbnewline & “VASPLV.ASPListView|http://www.visualasp.com|VisualASP - ListView|0|”
com = com & vbnewline & “VASPMV.ASPMonthView|http://www.visualasp.com|VisualASP - MonthView|0|”
com = com & vbnewline & “VASPTB.ASPTabView|http://www.visualasp.com|VisualASP - TabView|0|”
com = com & vbnewline & “ASPWordToy.WordToy|http://www.asptoys.com|ASP Toys - WordToy (Word Converter)|6|”
com = com & vbnewline & “ASPTabToy.TabToy|http://www.asptoys.com|ASP Toys - TabToy|0|”
com = com & vbnewline & “aspZipCodeToy.ZipCodeToy|http://www.asptoys.com|ASP Toys - ASP ZipCodeToy|0|11”
com = com & vbnewline & “ASPCryptToy.CryptToy|http://www.asptoys.com|ASP Toys - CryptToy|9|”
com = com & vbnewline & “Convert.t2h|http://members.home.net/pjsteele/asp|CONVERT - string/html/text manipulation (free)|0|”
com = com & vbnewline & “APDocConv.Object|http://www.activepdf.com|activePDF - DocConverter|5|”
com = com & vbnewline & “APWebGrabber.Object|http://www.activepdf.com|activePDF - WebGrabber|5|”
com = com & vbnewline & “APServer.Object|http://www.activepdf.com|activePDF - activePDF Server|5|”
com = com & vbnewline & “APSpool.Object|http://www.activepdf.com|activePDF - Spooler|5|”
com = com & vbnewline & “APToolkit.Object|http://www.activepdf.com|activePDF - Toolkit|5|”
com = com & vbnewline & “shotgraph.image|http://www.shotgraph.com|Shot Graph|7|”
com = com & vbnewline & “IntrChart.Chart|http://www.compsysaus.com.au|IntrChart|7|”
com = com & vbnewline & “IntrSQL.Query|http://www.compsysaus.com.au|IntrSQL|0|”
com = com & vbnewline & “IntrPWD.Validate|http://www.compsysaus.com.au|IntrPWD|9|”
com = com & vbnewline & “IntrCard.Credit|http://www.compsysaus.com.au|IntrCard|0|11”
com = com & vbnewline & “AspSmartImage.SmartImage|http://www.aspsmart.com|ASP Smart - aspSmartImage|4|”
com = com & vbnewline & “AspSmartChat.SmartChat|http://www.aspsmart.com|ASP Smart - aspSmartChat|0|”
com = com & vbnewline & “AspSmartFile.SmartFile|http://www.aspsmart.com|ASP Smart - aspSmartFile|6|”
com = com & vbnewline & “aspSmartMenu.SmartMenuPopUp|http://www.aspsmart.com|ASP Smart - aspSmartMenu|0|”
com = com & vbnewline & “AspSmartDate.SmartDate|http://www.aspsmart.com|ASP Smart - aspSmartDate|0|”
com = com & vbnewline & “AspSmartUpload.SmartUpload|http://www.aspsmart.com|ASP Smart - aspSmartUpload|3|”
com = com & vbnewline & “aspSmartMail.SmartMail|http://www.aspsmart.com|ASP Smart - aspSmartMail|1|”
com = com & vbnewline & “aspSmartCache.SmartCache|http://www.aspsmart.com|ASP Smart - aspSmartCache|0|”
com = com & vbnewline & “xAuthorize.Charge|http://www.xauthorize.com|xAuthorize CC|10|11”
com = com & vbnewline & “acDesktop.Desktop|http://www.activecomponents.nu|acDesktop|0|”
com = com & vbnewline & “acNetwork.DNS|http://www.activecomponents.nu|acNetwork|0|”
com = com & vbnewline & “acSMTP.Smtp|http://www.activecomponents.nu|acSMTP SSL|9|”
com = com & vbnewline & “Temperature.Conversion|http://asp.myscripting.com/activextemp.asp|Temperature Conversion|0|”
com = com & vbnewline & “cyScape.browserObj|http://www.cyscape.com|BrowserHawk|2|11”
com = com & vbnewline & “dkQmail.Qmail||dkQMail|1|”
com = com & vbnewline & “Geocel.Mailer|http://www.geocel.com|GeoCel|1|”
com = com & vbnewline & “iismail.iismail.1||IISMail|1|”
com = com & vbnewline & “SmtpMail.SmtpMail.1||SMTP|1|”
com = com & vbnewline & “OpenX2.Connection|http://www.openx.ca|OpenX|1|”
com = com & vbnewline & “ABMailer.Mailman|http://www.absoftwarex.com/abmailer|ABMailer|1|”
com = com & vbnewline & “c2geread.Message|http://www.componentstogo.com|C2GEread|1|”
com = com & vbnewline & “C2G.SCM|http://www.componentstogo.com|C2GSCM|0|8”
com = com & vbnewline & “C2GSCM.Service|http://www.componentstogo.com|C2GSCM|8|0”
com = com & vbnewline & “C2G.SCAN|http://www.componentstogo.com|C2GSCAN|0|”
com = com & vbnewline & “C2G.whois|http://www.componentstogo.com|C2GWHOIS |0|”
com = com & vbnewline & “c2g.http|http://www.componentstogo.com|C2GHttp |0|”
com = com & vbnewline & “C2G.Ping|http://www.componentstogo.com|C2GPing|0|”
com = com & vbnewline & “C2G.Tracert|http://www.componentstogo.com|C2GTracert|0|”
com = com & vbnewline & “ANUPLOAD.OBJ|http://www.adminsystem.net/webapp/popcom|ANPOP|1|”
com = com & vbnewline & “ASPXP.Mail|http://aspxp.com/free_stuff/aspxpmail|ASPXPMail (free)|1|”
com = com & vbnewline & “ActiveMessenger.Message|http://www.infomentum.com|ActiveMessenger|1|”
com = com & vbnewline & “ActiveFile.Post|http://www.infomentum.com|ActiveFile|3|”
com = com & vbnewline & “ActiveNavigator.Toolbar|http://www.infomentum.com|ActiveNavigator|0|”
com = com & vbnewline & “ActiveProfile.Profile|http://www.infomentum.com|ActiveProfile|2|9”
com = com & vbnewline & “DartZip.Zip.1|http://www.dart.com|Dart Zip Compression Tool|6|”
com = com & vbnewline & “Dart.Ftp.1|http://www.dart.com|Dart FTP Tool|6|0”
com = com & vbnewline & “Dart.Pop.1|http://www.dart.com|Dart POP Mail|1|”
com = com & vbnewline & “Dart.Ping.1|http://www.dart.com|Dart Ping|0|”
com = com & vbnewline & “Dart.Dns.1|http://www.dart.com|Dart DNS|0|”
com = com & vbnewline & “Dart.Smtp.1|http://www.dart.com|Dart SMTP|1|”
com = com & vbnewline & “Dart.Telnet.1|http://www.dart.com|Dart PowerTCP Telnet Tool|0|”
com = com & vbnewline & “Dart.Http.1|http://www.dart.com|Dart HTTP|0|”
com = com & vbnewline & “Dart.Tcp.1|http://www.dart.com|Dart TCP|0|”
com = com & vbnewline & “Dart.WebPage.1|http://www.dart.com|Dart WebPage|0|”
com = com & vbnewline & “Dart.WebASP.1|http://www.dart.com|Dart ASP|0|”
com = com & vbnewline & “Dart.Message.1|http://www.dart.com|Dart Message|0|”
com = com & vbnewline & “Dart.Manager.1|http://www.dart.com|Dart Manager|0|”
com = com & vbnewline & “quicktab.quicktabs|http://www.webintel.net|Quicktab|0|”
com = com & vbnewline & “waspzip.waspzip|http://www.webintel.net|Wasp Zip|6|5”
com = com & vbnewline & “easyBarCode.aspBarCode|http://www.mitdata.com|aspEasyBarCode|7|0”
com = com & vbnewline & “aspZip.EasyZIP|http://www.mitdata.com|aspEasyZIP|6|5”
com = com & vbnewline & “aspPDF.EasyPDF|http://www.mitdata.com|aspEasyPDF|5|6”
com = com & vbnewline & “aspCrypt.EasyCRYPT|http://www.mitdata.com|aspEasyCRYPT|9|”
com = com & vbnewline & “objBarGraph.DrawChart|http://www.livesoup.com/bargraph.asp|BarGraph (free)|7|”
com = com & vbnewline & “LyfUpload.UploadFile|http://www.21jsp.com|LyfUpload (free)|3|”
com = com & vbnewline & “lyfimage.image|http://www.21jsp.com|LyfImage (free)|4|7”
com = com & vbnewline & “ASPControlHost.Host|http://release-systems.8m.com/asphost.html|ASPControlHost|7|4”
com = com & vbnewline & “GSServer.GSServerProp|http://www.graphicsserver.com|Graphics Server|4|7”
com = com & vbnewline & “ASPPicture.Picture|http://www.unchanged.net|ASPPicture|4|”
com = com & vbnewline & “COMobjectsNET.IconGrabber|http://www.comobjects.net|COMobjects.NET Icon Grabber|4|”
com = com & vbnewline & “COMobjects.NET.PictureProcessor|http://www.comobjects.net|COMobjects.NET Picture Processor|4|”
com = com & vbnewline & “COMobjectsNET.PictureGalleryPro|http://www.comobjects.net|COMobjects.NET Picture Gallery Pro|4|”
com = com & vbnewline & “COMobjectsNET.Colorizer|http://www.comobjects.net|COMobjects.NET Colorizer|4|”
com = com & vbnewline & “COMobjectsNET.PieChart|http://www.comobjects.net|COMobjects.NET 3D Pie Chart|7|4”
com = com & vbnewline & “ChartDirector.API|http://www.advsofteng.com|ChartDirector|7|”
com = com & vbnewline & “Stonebroom.ASPointer|http://www.stonebroom.com|Stonebroom.ASPointer|13|5”
com = com & vbnewline & “Stonebroom.ASP2XML|http://www.stonebroom.com|Stonebroom.ASP2XML|13|5”
com = com & vbnewline & “Stonebroom.RegEx|http://www.stonebroom.com|Stonebroom.RegEx|0|”
com = com & vbnewline & “Stonebroom.RemoteZip|http://www.stonebroom.com|Stonebroom.RemoteZip|5|6”
com = com & vbnewline & “Stonebroom.SaveForm|http://www.stonebroom.com|Stonebroom.SaveForm|12|”
com = com & vbnewline & “Stonebroom.ServerZip|http://www.stonebroom.com|Stonebroom.ServerZip|5|6”
com = com & vbnewline & “Stonebroom.XSLTransform|http://www.stonebroom.com|Stonebroom.XSLTransform|13|5”
com = com & vbnewline & “OpenX.DBMail|http://www.openx.ca|OpenX DBMail|1|12”
com = com & vbnewline & “com.comsoltech.CGI|http://www.comsoltech.com|com.comsoltech.CGI (free)|12|”
com = com & vbnewline & “Datafun.FormBoy|http://www.datafun.net|FormBoy|12|10”
com = com & vbnewline & “AddressTools.ZIPCheck|http://www.addresstools.com|AddressTools - ZIPCheck|11|12”
com = com & vbnewline & “AddressTools.EmailCheck|http://www.addresstools.com|AddressTools - EmailCheck|11|12”
com = com & vbnewline & “VisualSoft.Mail.1|http://www.visualmart.com|VisualSoft Mail|1|”
com = com & vbnewline & “VisualSoft.BLOWFISHCrypt.1|http://www.visualmart.com|VisualSoft Crypt|9|”
com = com & vbnewline & “VisualSoft.FTP.1|http://www.visualmart.com|VisualSoft FTP|6|0”
com = com & vbnewline & “VisualSoft.HTTP.1|http://www.visualmart.com|VisualSoft HTTP|2|0”
com = com & vbnewline & “VisualSoft.Chart.1|http://www.visualmart.com|VisualSoft Chart|7|”
com = com & vbnewline & “VisualSoft.DMXML.1|http://www.visualmart.com|VisualSoft XMLPro|13|”
com = com & vbnewline & “VisualSoft.DataAdmin.1|http://www.visualmart.com|VisualSoft DataAdmin|0|”
com = com & vbnewline & “QwerkSoft.FormSlam|http://www.qwerksoft.com|Form Slam|12|11”
com = com & vbnewline & “SiteAdmin.AdminTools|http://components.sitetown.com|SiteSecurity|9|”
com = com & vbnewline & “SiteSecurity.Login|http://components.sitetown.com|SiteSecurity|9|”
com = com & vbnewline & “FileDownload.Manager|http://components.sitetown.com|File Download|6|0”
com = com & vbnewline & “EasyDb.Database|http://components.sitetown.com|Easy DB|0|”
com = com & vbnewline & “AbsoluteHttp.Conn|http://www.speeq.com|AbsoluteHTTP|0|”
com = com & vbnewline & “ASPCharge.CC|http://www.bluesquirrel.com|A$PCharge|10|11”
com = com & vbnewline & “ProjectDisplay.Charts|http://www.aspkey.com|ASPkey ProjectDisplay|0|”
com = com & vbnewline & “IPWorksASP.SOAP|www.nsoftware.com|IP Works Soap|13|”
com = com & vbnewline & “IPWorksASP.FileMailer|www.nsoftware.com|IP Works FileMailer|1|6”
com = com & vbnewline & “IPWorksASP.FTP|www.nsoftware.com|IP Works FTP|0|”
com = com & vbnewline & “IPWorksASP.HTMLMailer|www.nsoftware.com|IP Works HTMLMailer|1|”
com = com & vbnewline & “IPWorksASP.HTTP|www.nsoftware.com|IP Works HTTP|13|0”
com = com & vbnewline & “IPWorksASP.ICMPPort|www.nsoftware.com|IP Works ICMPPort|0|”
com = com & vbnewline & “IPWorksASP.IMAP|www.nsoftware.com|IP Works IMAP|0|”
com = com & vbnewline & “IPWorksASP.IPInfo|www.nsoftware.com|IP Works IPInfo|0|”
com = com & vbnewline & “IPWorksASP.IPPort|www.nsoftware.com|IP Works IPPort|0|”
com = com & vbnewline & “IPWorksASP.LDAP|www.nsoftware.com|IP Works LDAP|0|”
com = com & vbnewline & “IPWorksASP.MCast|www.nsoftware.com|IP Works MCast|0|”
com = com & vbnewline & “IPWorksASP.MIME|www.nsoftware.com|IP Works MIME|1|”
com = com & vbnewline & “IPWorksASP.MX|www.nsoftware.com|IP Works MX|1|”
com = com & vbnewline & “IPWorksASP.NetClock|www.nsoftware.com|IP Works NetClock|0|”
com = com & vbnewline & “IPWorksASP.NetCode|www.nsoftware.com|IP Works NetCode|0|”
com = com & vbnewline & “IPWorksASP.NetDial|www.nsoftware.com|IP Works NetDial|0|”
com = com & vbnewline & “IPWorksASP.NNTP|www.nsoftware.com|IP Works NNTP|0|”
com = com & vbnewline & “IPWorksASP.Ping|www.nsoftware.com|IP Works Ping|0|”
com = com & vbnewline & “IPWorksASP.POP|www.nsoftware.com|IP Works POP|1|”
com = com & vbnewline & “IPWorksASP.RCP|www.nsoftware.com|IP Works RCP|6|0”
com = com & vbnewline & “IPWorksASP.Rexec|www.nsoftware.com|IP Works Rexec|0|”
com = com & vbnewline & “IPWorksASP.Rshell|www.nsoftware.com|IP Works Rshell|0|”
com = com & vbnewline & “IPWorksASP.SMTP|www.nsoftware.com|IP Works SMTP|1|”
com = com & vbnewline & “IPWorksASP.SNMP|www.nsoftware.com|IP Works SNMP|1|0”
com = com & vbnewline & “IPWorksASP.SNPP|www.nsoftware.com|IP Works SNPP|13|0”
com = com & vbnewline & “IPWorksASP.Telnet|www.nsoftware.com|IP Works Telnet|0|”
com = com & vbnewline & “IPWorksASP.TFTP|www.nsoftware.com|IP Works TFTP|0|”
com = com & vbnewline & “IPWorksASP.TraceRoute|www.nsoftware.com|IP Works TraceRoute|0|”
com = com & vbnewline & “IPWorksASP.UDPPort|www.nsoftware.com|IP Works UDPPort|0|”
com = com & vbnewline & “IPWorksASP.WebForm|www.nsoftware.com|IP Works WebForm|12|”
com = com & vbnewline & “IPWorksASP.WebUpload|www.nsoftware.com|IP Works WebUpload|3|”
com = com & vbnewline & “IPWorksASP.Whois|www.nsoftware.com|IP Works Whois|0|”
com = com & vbnewline & “IPWorksASP.XMLp|www.nsoftware.com|IP Works XMLp|13|”
com = com & vbnewline & “iisCC.cc|http://www.iiscart.com|IIS Cart - iisCARTcc|0|11”
com = com & vbnewline & “Coalesys.CSPanelBar.2|http://www.coalesys.com|CSPanelBar|0|”
com = com & vbnewline & “Coalesys.CSWebMenu.1|http://www.coalesys.com|CSWebMenu|0|3”
com = com & vbnewline & “TCPIP.DNS|http://www.pstruh.cz/help/tcpip/library.htm|Simple DNS+Traceroute|0|”
com = com & vbnewline & “DrWFM.fm|http://www.dataroad.sk/dr/drwfm/default.asp|DrWebFileManager|6|”
com = com & vbnewline & “id3.id3get|WEBSITE.WS - Your Internet Address For Life™ ID3.ID3Get|0|”
com = com & vbnewline & “Atrax.ComboBox|WEBSITE.WS - Your Internet Address For Life™ ComboBox|0|”
com = com & vbnewline & “Atrax.URLGrabber|WEBSITE.WS - Your Internet Address For Life™ URLGrabber|0|13”
com = com & vbnewline & “Atrax.Whois|http://www.infinitemonkeys.ws|Atrax Whois|0|”
com = com & vbnewline & “SOFTWING.ASPEventlog|http://www.alphasierrapapa.com|Asp Event log (FREE)|8|0”
com = com & vbnewline & “Softwing.EventLogReader|http://www.alphasierrapapa.com|Event Log Reader (FREE)|0|”
com = com & vbnewline & “Softwing.AspQPerfCounters|http://www.alphasierrapapa.com|AspQPerfCounters|8|0”
com = com & vbnewline & “SOFTWING.AspTear|http://www.alphasierrapapa.com|AspTear|8|0”
com = com & vbnewline & “AspTouch.TouchIt|http://www.alphasierrapapa.com|AspTouch TouchIt (FREE)|8|0”
com = com & vbnewline & “Softwing.FileCache.1|http://www.alphasierrapapa.com|Softwing FileCache (FREE)|8|0”
com = com & vbnewline & “Softwing.LocaleFormatter|http://www.alphasierrapapa.com|LocaleFormatter (FREE)|0|”
com = com & vbnewline & “Softwing.MacBinary|http://www.alphasierrapapa.com|MacBinary Xtraction (FREE)|6|”
com = com & vbnewline & “Softwing.OdbcRegTool|http://www.alphasierrapapa.com|OdbcRegTool (FREE)|8|0”
com = com & vbnewline & “Softwing.Profiler|http://www.alphasierrapapa.com|Softwing ASP Script Speed Profiler (FREE)|0|”
com = com & vbnewline & “AlphaSierraPapa.AspRegSvr|http://www.alphasierrapapa.com|RegServer [component registration via ASP] (FREE!!)|8|0”
com = com & vbnewline & “Softwing.VersionInfo|http://www.alphasierrapapa.com|VersionInfo|8|0”
com = com & vbnewline & “w3info.w3info.1|http://www.alphasierrapapa.com|W3 Info|0|”
com = com & vbnewline & “SoftwingXSB.ShoppingBag|http://www.alphasierrapapa.com|Softwing ShoppingBag|10|”
com = com & vbnewline & “crossoft.quickcal|http://www.quickgallery.com|Quick Calendar|0|”
com = com & vbnewline & “crossoft.wapsplash|http://www.quickgallery.com|QuickDeck|0|”
com = com & vbnewline & “crossoft.waplist|http://www.quickgallery.com|QuickDeck|0|”
com = com & vbnewline & “crossoft.remotescript|http://www.quickgallery.com|QuickList|0|”
com = com & vbnewline & “crossoft.quicklist|http://www.quickgallery.com|QuickList|0|”
com = com & vbnewline & “crossoft.quicktable|http://www.quickgallery.com|QuickTable|0|”
com = com & vbnewline & “OneTouchASP.StrFunctions|http://www.1touchasp.com|1Touch|0|”
com = com & vbnewline & “ZmeYsoft.Hashes.MD5|http://www.newobjects.com|ZmeYsoft MD5 Hash|9|0”
com = com & vbnewline & “binarysendfile.BinFileSend|http://www.newobjects.com|Binarysendfile component|0|”
com = com & vbnewline & “werkslib.mp3exp|Thomas Marban トマス (っಠ‿ಠ)っ - MP3|0|”
com = com & vbnewline & “TreeGen.Tree|http://www.treegen.com|Tree Gen|0|”
com = com & vbnewline & “Text2Tree150d.tree|http://www.asp-components.de|Text2Tree|0|”
com = com & vbnewline & “ASPBarChart100d.chart|http://www.asp-components.de|Bar Chart|8|0”
com = com & vbnewline & “AspWebCal120d.webcal|http://www.asp-components.de|ASP WebCalendar|0|”
com = com & vbnewline & “ScriptUtils.ASPForm|http://pstruh.cz/help/ScptUtl/library.htm|Simple Upload|3|0”
com = com & vbnewline & “ScriptUtils.ByteArray|http://pstruh.cz/help/ScptUtl/library.htm|Simple Download|0|”
com = com & vbnewline & “ScriptUtils.Kernel|http://pstruh.cz/help/ScptUtl/library.htm|ASP Timing|0|”
com = com & vbnewline & “Scribe.ScribeDOM|http://www.innuvo.com|ScribeDOM|13|”
com = com & vbnewline & “ANPOP.POPMSG|http://www.adminsystem.net|ANPOP |1|”
com = com & vbnewline & “ANSMTP.OBJ|http://www.adminsystem.net|ANSMTP|1|”
com = com & vbnewline & “ANUPLOAD.OBJ|http://www.adminsystem.net|ANUPLOAD (free)|3|”
com = com & vbnewline & “VoiceShot.VoiceShot|http://www.voiceshot.com/api/readme.htm|ASP Call|0|”
com = com & vbnewline & “SimplePageASP.SNPP|http://www.rushweb.com|SimplePageASP SNPP|0|”
com = com & vbnewline & “khttp.inet|http://www.rainfall.com|KHTTP|13|0”
com = com & vbnewline & “OCXHTTP.OCXHttpCtrl.1|http://www.flicks.com|Flicks OCXHttp|13|0”
com = com & vbnewline & “URLFetch.URLFetch|http://www.screen-scraper.com|URLFetch|13|0”
com = com & vbnewline & “Dundas.Mailer|http://www.dundas.com|Dundas Mailer|1|”
com = com & vbnewline & “Dundas.Mailer.1|http://www.dundas.com|Dundas Mailer|1|”
com = com & vbnewline & “Dundas.PieChartServer.1|http://www.dundas.com|Dundas PieChartServer|7|”
com = com & vbnewline & “Dundas.Upload|http://www.dundas.com|Dundas Upload|3|”
com = com & vbnewline & “Dundas.Upload.2|http://www.dundas.com|Dundas Upload|3|”
com = com & vbnewline & “Dundas.ChartServer|http://www.dundas.com|Dundas ChartServer|7|”
com = com & vbnewline & “Dundas.ChartServer2D.1|http://www.dundas.com|Dundas ChartServer 2D|7|”
com = com & vbnewline & “ABCUpload4.XForm|http://www.websupergoo.com|ABC Upload|3|”
com = com & vbnewline & “ABCpdf3.Doc|http://www.websupergoo.com|ABC PDF|0|”
com = com & vbnewline & “ImageGlue5.Canvas|http://www.websupergoo.com|Image Glue|4|”
com = com & vbnewline & “ImageEffects.FX|http://www.websupergoo.com|Image Effects|4|”
com = com & vbnewline & “ABCDrawHTML.Page|http://www.websupergoo.com|ABC Draw HTML|4|0”
com = com & vbnewline & “ABCCrypto2.Crypto|http://www.websupergoo.com|ABC Crypto|9|”
com = com & vbnewline & “MetaFiler2.File|http://www.websupergoo.com|MetaFiler|4|”
com = com & vbnewline & “XceedSoftware.XceedZip|http://www.xceedsoft.com|XceedZip|5|”
com = com & vbnewline & “Xceed.BinaryEncoding|http://www.xceedsoft.com|Xceed Binary Encoding|0|”
com = com & vbnewline & “Xceed.Base64Encoding|http://www.xceedsoft.com|Xceed Base 64 Encoding|0|”
com = com & vbnewline & “Xceed.Encryption|http://www.xceedsoft.com|Xceed Encryption|9|0”
com = com & vbnewline & “Xceed.TwofishEncryptionMethod|http://www.xceedsoft.com|Xceed Two fish Encryption Method|9|0”
com = com & vbnewline & “Xceed.HavalHashingMethod|http://www.xceedsoft.com|Xceed Haval Hashing Method|9|0”
com = com & vbnewline & “XceedSoftware.XceedFtp|http://www.xceedsoft.com|Xceed Ftp|8|0”
com = com & vbnewline & “Xceed.StreamingCompression|http://www.xceedsoft.com|Xceed Streaming Compression|0|”
com = com & vbnewline & “Xceed.DeflateCompression|http://www.xceedsoft.com|Xceed Deflate Compression|0|”
'com = com & vbnewline & “|http://www.xceedsoft.com|Xceed ||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”
'com = com & vbnewline & “||||”

com = Split(com, vbnewline)

cat = “Miscellaneous” ’ 0
cat = cat & “|Email” ’ 1
cat = cat & “|Browser” ’ 2
cat = cat & “|Upload” ’ 3
cat = cat & “|Image” ’ 4
cat = cat & “|Documents” ’ 5
cat = cat & “|File Management” ’ 6
cat = cat & “|Graphs & Charts” ’ 7
cat = cat & “|Server Management” ’ 8
cat = cat & “|Users & Security” ’ 9
cat = cat & “|E-Commerce” ’ 10
cat = cat & “|Validation” ’ 11
cat = cat & “|Forms” ’ 12
cat = cat & “|XML” ’ 13

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

ASP Component Test - http://www.pensaworks.com <% 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) %>
Component Details
<% Set b = New ProgIDInfo Set a = b.LoadProgID(comCreate) if a.Description <> "" then %> Component: <%=comName%>
Website: <% if comURL <> "" then %><%=comURL%><% end if %>
Category(s): <%=cat(comCat)%><% if comCat2 <> "" then %> | <%=cat(comCat2)%><% end if %>
Description: <%= a.Description %>
DLLName: <%=a.DLLName%>
ProgID: <%=a.ProgID%>
ClsID: <%=a.ClsID%>
Path: <%=a.Path%>
TypeLib: <%=a.TypeLib%>
Version: <%=a.Version%>
<% else %> No Information could be found for: <%=comName%> <% end if %>

Close Window

? 2002, PensaWorks, inc.
All Rights Reserved.

<% else %>
ASP Component Test

This Component Test simply checks to see if the various components are installed by trying to create the server object the component uses. It does not guarantee that the component is configured to work properly. If you have any questions regarding a specific component, you should contact your hosting company or the component manufacturer. Please send us any feedback, bugs, or requests you may have. They are greatly appreciated! This script was last updated <%=lastUpdate%>. <% if newVersion then %>

This is not the latest version of the Component Test. You can download the latest version here.

<% end if %>

Component Test Mailinglist
We are constantly making changes and updating the component tests to add new features and more components to the list. Join the mailinglist and be the first to know when we release an update! View our Privacy Policy.
Name:     Email Address:

Please wait while testing <%=(UBound(com) + 1)%> components. This may take a few seconds to load.

<% response.flush() %> <% 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 %> <% else %> <% end If %> <% end if installed = "" : comCreate = "" : comURL = "" : comName = "" : comCat = "" : comCat2 = "" next response.flush() %> <% if onNum = 0 then %> <% end if %>
">
Show: From:
# Category Status Details Com
<%=(onNum)%> <% if IsNumeric(showCat) then %><%=cat(showCat)%><% else %><%=cat(comCat)%><% end if %>
<% if NOT installed then %> Not Installed <% else installedCOMs = installedComs + 1 %> Installed <% end if %>
<% if NOT installed then %> None Available <% else %> ?comID=<%=i%>')">COM Details <% end if %>
<% if comURL <> "" then %><%=comName%><% else %><%=comName%><% end if %>
You do not have any components installed for your selections.

 

You have a total of <%=installedCOMs%> COMs installed out of <%=onNum%> checked.

? 2002, PensaWorks, inc.
All Rights Reserved.

<% end if %> <% 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
%>
[/PHP]

I am not finding any difference between both, desire not to enter on discussion about if the codes they are or nonidentical (works that he is the main thing and I believe that with that already reaches, from already this two pages are identical), at his moment the components do not work correctly (and they do not ask to me because) and now (from already 6 hours approximately) if they do it.

You same can verify the date and hour of creation of both pages, and will see how objcheck.asp is older than the one than they recently I have upload, so that they can see that this is certain, the page http://helpdesk.enterprisedreams.net/objcheck.asp , has been created in the server the day 08/28/2005 8:13 (server time), the new page http://helpdesk.enterprisedreams.net/test_asp_components.asp is created recently 10/06/2005 17:53 (server time), yes this pages is on win10, but the code is the same.

9

Ah I see the problem!

objcheck is the name of another script!

Installed Objects Scanner

I thought you were talking about this script.

10

BTW,
Can you PM me the domain on win7 not working properly?

11

[QUOTE=Stephen]
Ah I see the problem!

objcheck is the name of another script!

Installed Objects Scanner

I thought you were talking about this script.
[/QUOTE]

No problem Stephen, exactly right now it was going to ask to you from where you had download the “objcheck.asp” code :smiley:

All we are human no? (where will be the goddesses my girlfriends? :stuck_out_tongue: )

12

[QUOTE=Stephen]
BTW,
Can you PM me the domain on win7 not working properly?
[/QUOTE]

Stephen, the components for the domain is working now, no experienced any problem at this time, thanks anything :]