Obtener la IP Pública

[empardopo]

He encontrado esto y también me ha parecido interesante.

Code: Select all

MsgBox % GetPublicIP() ;Display the networks public IP
MsgBox % GetLocalIPByAdaptor("Ethernet") ;Display the local IP of the adaptor named "Ethernet"

For AdaptorName, IP in GetLocalIPs() { ;Display the IPs of all adaptors that have one
    MsgBox, %AdaptorName%: %IP%
}

GetPublicIP() {
    HttpObj := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    HttpObj.Open("GET","https://www.google.com/search?q=what+is+my+ip&num=1")
    HttpObj.Send()
    RegexMatch(HttpObj.ResponseText,"Client IP address: ([\d\.]+)",match)
    Return match1
}

GetLocalIPByAdaptor(adaptorName) {
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = '" adaptorName "'")._NewEnum, colItems[objItem]
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" objItem.InterfaceIndex "'")._NewEnum, colItems[objItem]
    Return objItem.IPAddress[0]
}

GetLocalIPs() {
    adaptors := Object()
    ips := Object()
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")._NewEnum, colItems[objItem]
    While (colItems[objItem])
        adaptors.Insert(objItem.InterfaceIndex,objItem.NetConnectionID)
    For index, name in adaptors {
        colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" index "'")._NewEnum, colItems[objItem]
        If (name && objItem.IPAddress[0])
            ips.Insert(name,objItem.IPAddress[0])
    }
    Return ips
}

Lo he encontrado en este link.

Otras webs para usar y que te devuelva la ip:
http://ipchk.sourceforge.net/rawip/
http://whatismyip.org/
http://www.ip-adress.eu/

Lo mismo también funciona con algo parecido a esto:

Code: Select all

:*:/ip:: 
MyExternalIP=0.0.0.0 
TmpFile=%WinDir%\TEMP\IPAddress.TMP 
UrlDownloadToFile,http://www.whatismyip.org/,%TmpFile% 
FileReadLine,MyExternalIP,%TmpFile%,1 
FileDelete,%TmpFile% 
Send, %MyExternalIP%

Link

Saludos

[cjwalker]

Verifique su dirección IP actual usando esta herramienta: https://fastestvpn.com/what-is-my-ip

[Guest]

I found this new IP location Lookup tool, I would recommend you to verify your IPv4 or IPv6 using this tool: https://whatismyip.live/

[KBMan1015]

[contenido original del mensaje borrado por el moderador]

Nota del moderador: Por favor no sigan sugiriendo o haciendo spam con más enlaces como los ya mencionados arriba, no es el propósito de este tema y no aporta nada al script.

Gracias.
@Flipeador.