I am sending the right subscription key in the following code, but I am getting the message : "statusCode": 401, "message": "Access denied due to invalid subscription key. Make sure to provide a valid key for an active subscription." } Can someone help me please? Here is my code: Const URL1 = "https://data-dev.azure-api.net/Senddata" Set XMLServer = CreateObject("WinHttp.WinHttpRequest.5.1") Set XMLReceive = CreateObject("Msxml2.DOMDocument.6.0") XMLServer.SetTimeouts 5000, 60000, 10000, 10000 ' XMLServer.Option(9) = 2048 XMLServer.Option(6) = True XMLServer.Open "POST", URL1, True XMLServer.SetRequestHeader "aade-user-id", p_USER XMLServer.SetRequestHeader "ocp-apim-subscription-key", p_Key XMLServer.Send XMLFile

Hello @Bill dim - Did you verify if a correct subscription ID is being used against the API that's associated with the correct Product in your APIM setup? Troubleshooting steps for the error message is documented at the following: Unauthorized errors (401) while invoking APIs I hope the steps above help but let me know if you continue to encounter this problem.

"statusCode": 401, "message": "Access denied due to invalid subscription key. Make sure to provide a valid key for an active subscription." }

Accepted answer

Mike Urnun 9,786 Reputation points Microsoft Employee

2021-12-17T21:53:43.59+00:00

Hello @Bill dim - Did you verify if a correct subscription ID is being used against the API that's associated with the correct Product in your APIM setup? Troubleshooting steps for the error message is documented at the following: Unauthorized errors (401) while invoking APIs

I hope the steps above help but let me know if you continue to encounter this problem.
Please sign in to rate this answer.
Bill dim 21 Reputation points

2021-12-18T08:55:28.833+00:00

Dear MikeUrnun,

Thank you very much for replying to my message and thank you very much for your help.
I read the "Unauthorized errors (401) while invoking APIs"
The subscription-key that I am sending is the right one.
I don't get any headers, I only get back the xml file that I am sending and at the end the " 401
{ "statusCode": 401, "message": "Access denied due to invalid subscription key. Make sure to provide a valid key for an active subscription." }

Mike Urnun 9,786 Reputation points Microsoft Employee

2021-12-20T18:51:52.29+00:00

@Bill dim Hmm that's strange, the error occurs when the subscription key being used is invalid. And even if you copied/pasted the key correctly, but however, if the key isn't scoped to a particular Product and the APIs you're calling aren't scoped/associated with that Product, the subscription key will still be considered invalid.

Bill dim 21 Reputation points

2021-12-20T19:13:35.54+00:00

Thank you again for answering to me dear MikeUrnun. This is what I thought too. Since the accountant of the company has created the account and he gave me the subscription key, I will ask him to check if the API that I am using is declared. If it is not declared, I wll ask him to declare it. I will let you know of the results. Thank you again. I wish you a very nice day.

Bill dim 21 Reputation points

2021-12-22T08:53:23.397+00:00

Hello dear MikeUrnun,

Finally, I had to add the API that I was using to overcome this problem but now I face another problem and I would very much appreciate it if you can help me again.
I am using VB6.0 and I am trying to send an xml file to a portal but I get the error message :
Error no : -2147483638 in Sub SendXmlFile. The data necessary to complete this operation is not yet available.
Can you please hel me to solve this problem.

Here is my code:

Sub SendXmlFile()
Dim st11, st12 As String
Dim XMLServer As WinHttpRequest
Dim XMLReceive As DOMDocument60
Dim queryString

On Error GoTo ErrHandler
'
Call create_xml(tXML)
'

Const URL1 = "https://mydata-dev.portal.azure-api.net" ' Set XMLServer = CreateObject("WinHttp.WinHttpRequest.5.1") ' Set XMLReceive = CreateObject("Msxml2.DOMDocument.6.0") XMLServer.SetTimeouts 5000, 60000, 10000, 10000 ' XMLServer.Option(9) = 2048 XMLServer.Option(6) = True XMLServer.Open "POST", URL1 & p_Key, True XMLServer.SetRequestHeader "aade-user-id", p_USER XMLServer.SetRequestHeader "ocp-apim-subscription-key", p_Key XMLServer.Send tXML Exit Sub '

ErrHandler:
st11 = Err.Number
st12 = Err.Description
MsgBox "Error No : " & st11 & " in sub SendXmlFile " & st12
End Sub

Sincerely Yours,
Bill Dimitriou

Mike Urnun 9,786 Reputation points Microsoft Employee

2021-12-22T21:33:12.877+00:00

Hi Bill - Unfortunately, I'm not all familiar with VB 6.0 and I'm afraid asking about it on this particular channel may not be the best place either. Please see my answer on your previous post on the matter & try posting on the forums listed there where VB 6.0 SMEs and experts provide support on: https://learn.microsoft.com/en-us/answers/questions/667815/index.html

Bill dim 21 Reputation points

2021-12-23T07:18:57.767+00:00

Thank you very much dear MikeUrnun,

I wish you MERRY CHRISTMAS and HAPPY NEW YEAR with very good health !
All the best for you !

Best regards,
Bill Dimitriou
Sign in to comment

Share via

"statusCode": 401, "message": "Access denied due to invalid subscription key. Make sure to provide a valid key for an active subscription." }

0 additional answers