Internet (WAN) - IP abfragen

    Problem: PC hinter einem Router, externe IP-Adresse des Routers (Internet-IP-Adresse) kann nicht von diesem PC direkt abgefragt/ermittelt werden

    Lösung: es gibt verschiedene Web-Seiten, die anzeigen, mit welcher IP-Adresse der Internetzugang besteht

    Ich habe mich für http://www.heise.de/netze/tools/ip/ entschieden.

    Hier mein kleines Script:

    Spoiler anzeigen
    [autoit]

    ; holt von https://autoit.de/www.heise.de/netze die WAN-IP-Adresse des eigenen I-Net-Zugangs
    #include <string.au3>
    #include <File.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Dim $such1 = '<a href="/netze/tools/whois-abfrage/?rm=whois_formular">'
    Dim $such2 = '</a>'
    Dim $quelle = "http://www.heise.de/netze/tools/ip/"
    Dim $ziel = _TempFile()
    Dim $fp
    Dim $wan_ip

    [/autoit] [autoit][/autoit] [autoit]

    InetGet($quelle,$ziel)
    $fp=FileOpen($ziel,0)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $line = FileReadLine($fp)
    If @error = -1 Then ExitLoop
    If StringInStr($line,$such1) > 0 Then
    $wan_ip=_StringBetween($line,$such1,$such2)
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(0,"WAN-IP","Eigene Internet-Adresse: "&$wan_ip[0])

    [/autoit] [autoit][/autoit] [autoit]

    FileClose($fp)

    [/autoit] [autoit][/autoit] [autoit]

    FileDelete($ziel)

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit]


    Wenn jemand einen Vorschlag für eine noch schnellere/einfachere Ermittlung der IP-Adrssse hat - immer her damit.

    Gruß
    Holger