Comment obtenir l'IP WAN d'un routeur en utilisant UPnP/SSDP

Bien que cette tâche soit plutôt ancienne, je poste la réponse que je cherchais moi-même.

Votre réponse UPnP a posté l'emplacement "http://192.168.1.1:1780/InternetGatewayDevice.xml"

Vous pouvez y obtenir plus d'informations sur le format des données. Pour mon routeur : j'y ai trouvé plus de chemins vers des fichiers xml. En les appelant, il y a plus d'informations UPnP résultant en ceci : J'ai appelé :

POST /upnp/control?WANIPConnection HTTP/1.1
Host: 192.168.1.1
SOAPAction: "urn:schemas-upnp-org:service:WANIPConnection:1#GetExternalIPAddress"
Accept-Language: de-de;q=1, de;q=0.5
Accept-Encoding: gzip
Content-Type: text/xml; charset="utf-8"
User-Agent: gupnp-universal-cp GUPnP/0.20.10 DLNADOC/1.50
Connection: Keep-Alive
Content-Length: 281

et obtenir comme réponse :

HTTP/1.1 200 OK
EXT:
Content-Type: text/xml; charset="utf-8"
Date: Tue, 04 Aug 2015 23:55:01 GMT
Server: servername/2.0 UPnP/1.0 UPnP-Device-Host/1.0
Content-Length: 380

            123.123.123.123

J'ai reçu beaucoup d'aide de "UPnP Inspector"

Vous pouvez utiliser socat

$ socat -T1 STDIO UDP4-DATAGRAM:239.255.255.250:1900 < request.txt

Script BASH entièrement fonctionnel :

#!/usr/bin/env bash
function wan_ip_connection() {
    local host=$1
    result=$( curl -s "http://$host/upnp/control?WANIPConnection" \
       -H 'SOAPAction: "urn:schemas-upnp-org:service:WANIPConnection:1#GetExternalIPAddress"' \
       --data-binary ''
    )

    REGEX='ExternalIPAddress>([0-9.]+)<'
    if [[ $result =~ $REGEX ]]
    then
       echo "${BASH_REMATCH[@]:1}"
    fi
}

function initial_query() {
   echo -e 'M-SEARCH * HTTP/1.1\r\nHOST: 239.255.255.250:1900\r\nMAN: "ssdp:discover"\r\nMX: 3\r\nST: urn:schemas-upnp-org:device:InternetGatewayDevice:1\r\n\r\n' |
       socat STDIO UDP4-DATAGRAM:239.255.255.250:1900
}

function main() {
   location=$( initial_query | grep LOCATION )
   location=${location%/*}
   location=${location##*/}
   ip=$( wan_ip_connection "$location" )
   echo $ip
}

main