sashadeg,
Странно, что у Вас не работает. Вот код:
Код:

#include <Inet.au3>
For $i = 1 To 5
$nIP = _GetIP()
FileWrite(@ScriptDir & "\Log.txt", @HOUR & ":" & @MIN & ":" & @SEC & ". IP - " & $nIP & @CRLF)
Sleep(10000)
Next
А вот мой результат из Log.txt:
Код:

18:25:24. IP - 95.55.125.242
18:25:34. IP - 95.55.125.242
18:25:44. IP - 95.55.125.242
18:25:54. IP - 95.55.125.242
18:26:04. IP - 95.55.125.242