Tenho um sistema SCADA e a única linguagem de programação disponível é o VBscript. Preciso integrar com um mensageiro SQS, receber mensagens.
Fiz uns testes usando o Msxm12.dll. Segue script:
Dim objXmlHttpMain , URL strJSONToSend = "Action=SendMessage&MessageBody=Your+Message+Text&Expires=2020-10-15T12%3A00%3A00Z&Version=2012-11-05&AUTHPARAMS"
URL=" -Aqui a URL de acesso " 'Endereço do webservice'Set objXmlHttpMain = CreateObject("Msxml3.ServerXMLHTTP") Set objXmlHttpMain = CreateObject("Msxml2.ServerXMLHTTP")
On Error Resume Next objXmlHttpMain.open "POST",URL, False If Err Then 'handle errors Msgbox Err.Description & " [0x" & Hex(Err.Number) & "]" End If On Error Goto 0
objXmlHttpMain.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttpMain.send strJSONToSend strResponse = objXmlHttpMain.responseText msgbox strResponse
Porém estou tendo como resposta que o acesso é negado. Entendo que devo criar o usuário IAM. Porém via este método como que passo tais credenciais?