Estou fazendo uma solicitação HTTP do lado do servidor com um corpo JSON no VBScript assim:

Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open cMethod, cAPIURL, False, cUser, cPassword
oXMLHttp.setRequestHeader "Content-Type", "application/json"
oXMLHttp.send(cData)
cReturn = oXMLHttp.responseText
Set oXMLHttp = Nothing

O serviço que estou chamando espera que o tipo de conteúdo sejaapplication/jsonnaturalmente. Como você pode ver, estou definindo o cabeçalho da solicitação acima como tal.

A questão é queMSXML2.ServerXMLHTTP anexará um conjunto de caracteres ao que eu definir o tipo de conteúdo (não consigo encontrar a documentação para esse comportamento), com o padrão aparecendo como UTF-8. Portanto, no final, o cabeçalho é enviado comoapplication/json; Charset=UTF-8, do qual o serviço da web não gosta.

O estranho é que eu posso definir explicitamente um conjunto de caracteres comsetRequestHeader, mesmo sem sentido, eMSXML2.ServerXMLHTTP deixará o cabeçalho em paz. Por exemplo..

oXMLHttp.setRequestHeader "Content-Type", "application/json; Charset=FOO"

Funciona bem e é deixado intocado. Como posso pararMSXML2.ServerXMLHTTP de alterar o tipo de conteúdo?

EDIT: Descobri que o MSXML2.ServerXMLHTTP 6.0 não exibe esse comportamento, pelo menos por padrão. Mas ainda gostaria de ver se há uma solução para isso, pois não tenho certeza se ela estará disponível onde esse aplicativo precisa ser instalado.

Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")