msxml3.dll - Access is denied.

msxml3.dll

 error '80070005'

Access is denied.

Just started to get the above error since anabling SSL on my local machine.


My Code is

Dim objXMLHTTP, xml
	
	  ' Create an xmlhttp object:
	  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	  ' Or, for version 3.0 of XMLHTTP, use:
	  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
	  ' Opens the connection to the remote server.
	  xml.Open "GET", theurl, False
		
	  ' Actually Sends the request and returns the data:
	  xml.Send       'Line 50

Open in new window


the error is occuring on the xml.Send line
Why is this happening?
LVL 3
harris9999Asked:
Who is Participating?
 
Shanmuga SundaramConnect With a Mentor Director of Software EngineeringCommented:
check whether this url helps.


'Error: -2147012858 The code below solves the ocurrence of this error
' Description: The host name in the certificate is invalid or does not match
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
oxmlhttp.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
0
 
Shanmuga SundaramDirector of Software EngineeringCommented:
did you check here
0
 
Shanmuga SundaramDirector of Software EngineeringCommented:
if you are using like
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

then try replacing it similar to given below and check whether it helps

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
0
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

 
harris9999Author Commented:
Ah when I change it to that line I get:

msxml4.dll

 error '80072f06'

The host name in the certificate is invalid or does not match
0
 
djpazzaCommented:
Can you post the full code of the example above as I can not see the url you are trying to read?

'theurl ' should be set to the url of the remote page
Dim objXMLHTTP, xml
	
	  ' Create an xmlhttp object:
	  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	  ' Or, for version 3.0 of XMLHTTP, use:
	  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
          theurl = "http://www.yahoo.com"
	  ' Opens the connection to the remote server.
	  xml.Open "GET", theurl, False
		
	  ' Actually Sends the request and returns the data:
	  xml.Send       'Line 50

Toggle HighlightingOpen in New WindowSelect All

Open in new window

0
 
Shanmuga SundaramDirector of Software EngineeringCommented:
For this error "The host name in the certificate is invalid or does not match" did you check the below given url.

http://www.experts-exchange.com/Web_Development/Web_Languages-Standards/XML/Q_20980045.html
0
 
harris9999Author Commented:
theurl is set to the url of the remote page

It was all working fine until I enabled SSL. Is there any way to get IIS on my local PC to accept the self signed certificate.

		remoteurl=rsD("RemoteURL")
	
	urlvar="?un=" & username & "&p=" & password & "&ver=0"
	urlvar=EncryptString(urlvar)
	
	theurl=remoteurl & "?v=" & urlvar
	
	  Dim objXMLHTTP, xml
	
	  ' Create an xmlhttp object:
	  'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	  Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0") 
	  ' Or, for version 3.0 of XMLHTTP, use:
	  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
	  ' Opens the connection to the remote server.
	  xml.Open "GET", theurl, False
		
	  ' Actually Sends the request and returns the data:
	  xml.Send
	
	  'Display the HTML both as HTML and as text
	'  Response.Write "<h1>The HTML text</h1><xmp>"
	'  Response.Write xml.responseText
	'  Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"
	
	  remoteresult= xml.responseText
	  'response.Write("Remote Results=" & remoteresult)
	  
	  Set xml = Nothing

Open in new window

0
 
harris9999Author Commented:
shasunder,
Where exactly do I apply that line in my code?

tried as below but I get the error:


Microsoft VBScript compilation

error '800a0414'

Cannot use parentheses when calling a Sub

/js/ajax/login.asp, line 49
xml.setOption(2, xml.getOption(2) - 13056)



	  Dim objXMLHTTP, xml
	
	  ' Create an xmlhttp object:
	  'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	  Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0") 
 
	  ' Or, for version 3.0 of XMLHTTP, use:
	  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
	
	  ' Opens the connection to the remote server.
	  xml.setOption(2, xml.getOption(2) - 13056)
	  xml.Open "GET", theurl, False
		
	  ' Actually Sends the request and returns the data:
	  xml.Send
	
	  'Display the HTML both as HTML and as text
	'  Response.Write "<h1>The HTML text</h1><xmp>"
	'  Response.Write xml.responseText
	'  Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"
	
	  remoteresult= xml.responseText
	  'response.Write("Remote Results=" & remoteresult)
	  
	  Set xml = Nothing

Open in new window

0
 
Shanmuga SundaramDirector of Software EngineeringCommented:
change

xml.setOption(2, xml.getOption(2) - 13056)

as

xml.setOption 2, xml.getOption(2) - 13056

and check whether it helps
0
 
harris9999Author Commented:
Changed that line and I get this error again:


msxml4.dll

 error '80072f06'

The host name in the certificate is invalid or does not match
0
 
harris9999Author Commented:
I'd just found that one so replaced my line with:

 xml.setOption 2, 13056

So cheers for your help!!

And it gets past that but causes an error elsewhere, maybe another question for that one.
All since enabling SSL.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.