Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 4335
  • Last Modified:

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?
0
harris9999
Asked:
harris9999
  • 5
  • 5
1 Solution
 
Shanmuga SundaramCommented:
did you check here
0
 
Shanmuga SundaramCommented:
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
 
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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
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 SundaramCommented:
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 SundaramCommented:
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
 
Shanmuga SundaramCommented:
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
 
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

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 5
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now