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
; holt von https://autoit.de/www.heise.de/netze die WAN-IP-Adresse des eigenen I-Net-Zugangs
#include <string.au3>
#include <File.au3>
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
InetGet($quelle,$ziel)
$fp=FileOpen($ziel,0)
While 1
$line = FileReadLine($fp)
If @error = -1 Then ExitLoop
If StringInStr($line,$such1) > 0 Then
$wan_ip=_StringBetween($line,$such1,$such2)
EndIf
WEnd
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