Bei mir funktioniert das ermitteln der IP-Adresse nicht mit _GetIP. Ich bekomme immer die Meldung "Your IP Address is: " und das wars. Normalerweise sollte er die IP-Adresse dahinter anzeigen, aber das macht das Script nicht.
Ich war mal so frei und habe mal das Script etwas angepasst und eine andere Adresse zum ermitteln der IP-Adresse genommen.
Hier das Ergrebnis :
Code
$PublicIP = _GetIP()
MsgBox(0, "IP Address", "Your IP Address is: " & $PublicIP)
Func _GetIP()
Local $ip
If InetGet("http://checkip.dyndns.org/", @TempDir & "\~ip.tmp") Then
$ip = FileReadLine(@TempDir & "\~ip.tmp")
$ip = StringTrimLeft ($ip , 76)
$ip = StringTrimRight ($ip , 14)
FileDelete(@TempDir & "\~ip.tmp")
Return $ip
Else
SetError(1)
Return -1
EndIf
EndFunc
Alles anzeigen
Damit kann ich bei mir die IP-Adresse ermitteln. Vielleicht kann es jemand gebrauchen.