Como descobrir o IP de um site pelo ASP

[rafael prado]

Olá pessoal,

Estou doido aqui procurando algum comando ou função do ASP (não ASP.NET) que retorne o endereço IP de um site.

Vou dar um exemplo:

<%

response.write enderecoIP("http://www.uol.com.br")

%>

O resultado esperado na página seria um IP, como por exemplo:

200.221.2.45

Procurei diversos foruns em português e inglês e não consegui encontrar uma forma de fazer algo assim. Alguém tem um palpite?

Obrigado!

Abraços

[fercosmig]

use o split() para quebrar o texto e pegar somente o ip.

<% Response.Buffer = true %> 
<% 
url = "www.scriptbrasil.com.br" 

Set objWShell = CreateObject("WScript.Shell") 
Set objCmd = objWShell.Exec("ping " & url) 
strPResult = objCmd.StdOut.Readall() 
set objCmd = nothing: Set objWShell = nothing 

strStatus = "offline" 
if InStr(strPResult,"TTL=")>0 then strStatus = "online" 

response.write url & " is " & strStatus 
response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") 
%>

fonte: http://classicasp.aspfaq.com/general/how-d...he-results.html resultado na tela:

www.scriptbrasil.com.br is offline. Disparando contra www.scriptbrasil.com.br [187.16.23.128]com 32 bytes de dados: Esgotado o tempo limite do pedido. Esgotado o tempo limite do pedido. Esgotado o tempo limite do pedido. Esgotado o tempo limite do pedido. Estat¡sticas do Ping para 187.16.23.128: Pacotes: Enviados = 4, Recebidos = 0, Perdidos = 4 (100% de perda),

somente o IP:

str1 = split(strPResult,"[")
str2 = split(str1(1),"]")
ip = str2(0)
Response.Write("<br />Somente o IP: " & ip)