Necesito saber mi IP Pública
Publicado por Alberto (12 intervenciones) el 22/12/2003 04:11:21
¿Cómo puedo saber la IP pública del que ejecuta el programa que estoy desarrollando? Por favor, ayuda. Gracias
Valora esta pregunta


0
Set xml = WScript.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "checkip.dyndns.org", False 'este sitio de debuelve un texto que tiene incluido tu IP Publica
xml.Send
'A continuacion limpio la variable para de todo el texto solo lo que me interesa (que es la IP)
Cadena = CSTR(xml.responseText)
corte = mid(cadena, 76, 90)
inicio = inStr(1,corte,"<")
ip = mid (corte, 1, inicio -1)
msgbox "Mi IP Publica es " & ip