ResponseHeaders
Objeto de cabeçalho que fornece acesso aos cabeçalhos de respostas individuais.
Sintaxe
HTTPObject.CabeçalhosRespostas
Na qual:
ResponseHeadersé um objeto (leitura)
Exemplo
Este script imprime o nome do servidor HTTP:
Function Main
Dim HTTPObj as Object
Dim headers as Object
ip = "www.apache.org"
port = 80
cr = Chr(13) + Chr(10)
Set HTTPobj = HTTP.Connect (ip,port)
'Configura o tipo de solicitação
HTTPobj.GetURL("/")
HTTPobj.verb = "HEAD"
'para passar pelo proxy com autenticação automática
'Precisa alterar autenticação para 1
HTTPobj.Authentication = 1
'Envia solicitação HEAD
HTTPResponse = HTTPobj.SendRequest ()
'Determina novo Objeto chamado cabeçalhos
Set headers = HTTPobj.ResponseHeaders
'HTTPResponse contém o código de retorno
echo “Resultado: " + cstr(HTTPResponse) + cr
'o resultado HTTP deve se parecer com isso:
'HTTP/1.1 200 OK
'Data: Ter, 28 out 2003 10:23:19 GMT
'Comprimento-conteúdo: 1270
'Tipo-Conteúdo: text/html
echo “O servidor executando em " + ip + " é " + headers.HeaderValue("server") + cr
End Function