Averiguar mi IP publica por consola…
Muchas veces, necesitamos saber nuestra IP publica por x razón. Algunos entran a este tipo de paginas www.cualesmiip.com y otros usuarios mas avanzados y se fijan la IP publica que tiene el módem de nuestro “queridisimo” ISP o en nuestro router en caso de que el módem este configurado como Pure Bridge.
Para averiguar nuestra IP publica por consola, necesitamos que “alguien” de afuera nos diga a través de cual IP accedemos a ese “alguien”. Para esto mismo utilizaremos curl.
curl es un cliente para obtener archivos de servidores utilizando cualquiera de los protocolos soportados. La orden está diseñada para funcionar sin interacción del usuario o ninguna clase de interacción.
curl ofrece una gran cantidad de trucos útiles como soporte para proxy, auteticación de usuarios, subidas por FTP, post HTTP, reanudación de transferencias HTTP y más.
Para instalarlo…
chuecko@zarpele ~ $ sudo apt-get install curl
Y listo, solo hacer…
chuecko@zarpele ~ $ curl http://www.zarpele.com.ar/some/ip.php
chuecko@zarpele ~ $ 190.229.136.245
Saludos…
Puedes seguir cualquier respuesta a esta entrada mediante el canal RSS 2.0. Puedes dejar un comentario o enviar un trackback desde tu propio sitio.
[...] This post was mentioned on Twitter by Carol SuperFriki and Zarpele, pablo ar. pablo ar said: Averiguar mi IP publica por consola…: Muchas veces, necesitamos saber nuestra IP publica por x razón. Algunos entr… http://bit.ly/cybN8d [...]
mi truco es otro: wget http://www.zarpele.com.ar/some/ip.php ; cat ip.php ; rm ip.php
¿Gerente de sistemas es igual a Gerente de producción de sistemas?
[...] Averiguar mi IP publica por consola – 266 Hits [...]
no se que tan util sea esta opcion y hasta el momento solo aplica para usuarios de modem 2wire aunque creo se pueden hacer modificaciones de acuerdo a cada uso e incluso utilizar pag web que ya te dicen la IP
lo primero a realizar es entrar en la ruta del modem y ver el Link de donde se guarda la IP que tenemos en ese instante, para el modem viejo que utilizo 2wire la ruta es http://192.168.1.254
y de alli navegar a la opcion de enlace de banda ancha y alli nos aparece la IP que tenemos publica en ese instante, como muchos han mencionado esta IP cambia. pero si quiero que un programa lea esta IP yo utilizo la siguiente alternativa.
en un VB o desde Excel y precionando alt + F11 anexamos un nuevo formulario
posteriomente hay que agregar el control web
-para VB 6 se llama Microsoft Internet Controls
-para VBA de Excell se llama Microsoft Web Browser
a este control yo le llamo web1
Despues hay que agregar un command button y un textbox. Ojo los nombres predeterminados que da VB y VBA son diferentes por lo que hay que verificar cada uso.
genero una funcion de nombre GetIP donde basicamente accedere a la pag web donde veo mi IP y la buscare como texto plano
en el boton hare llamar o refrescar la pagina al control web1
y en el evento DocumentComplete de Web1 llamare a la funcion GetIp
anexo el codigo al cual se le pueden hacer muchas modificaciones
Private Sub getIP()
Dim i As Double
Dim iFin As Double
Dim xHTML As String
Dim xFind As String
Dim xFind2 As String
Dim strValor As String
On Error GoTo errIP:
xHTML = web1.Document.body.innerhtml
xFind = “Dirección de Internet:”
i = InStr(1, xHTML, xFind)
xFind = “”
xFind2 = “”
i = InStr(i, xHTML, xFind)
i = i + 20
iFin = InStr(i, xHTML, xFind2)
strValor = Mid(xHTML, i, iFin – i)
TextBox1 = strValor
Exit Sub
errIP:
Text1 = “no IP”
End Sub
Private Sub CommandButton1_Click()
web1.Navigate “http://192.168.1.254/xslt?PAGE=B01&THISPAGE=A01&NEXTPAGE=B01″
End Sub
Private Sub web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
getIP
End Sub
si utilizan otras paginas deben leer primero que les muestra el HTML para sustituir las variables que tengo para buscar la IP por las que correspondan.
buelvo a subir la funcion getip porque los textos que estaba buscando me los convirtio en HTML por lo que ponde la palabra Menorq y Mayorq donde corresponden estos simbolos
Private Sub getIP()
Dim i As Double
Dim iFin As Double
Dim xHTML As String
Dim xFind As String
Dim xFind2 As String
Dim strValor As String
On Error GoTo errIP:
xHTML = web1.Document.body.innerhtml
xFind = “Dirección de Internet:”
i = InStr(1, xHTML, xFind)
xFind = “MenorQTD class=datasmallMayorq”
xFind2 = “Menorq/TDMayorq”
i = InStr(i, xHTML, xFind)
i = i + 20
iFin = InStr(i, xHTML, xFind2)
strValor = Mid(xHTML, i, iFin – i)
TextBox1 = strValor
Exit Sub
errIP:
Text1 = “no IP”
End Su