En mi caso mi router es un NOGA KN-S1060
| stream wanIp |
stream := HTTPSocket
httpGet: '
http://192.168.1.1/sys_status.htm' args: nil
user: 'admin'
passwd: 'admin'.
stream upToAll: 'wanIP'.
wanIp := stream upTo: $;.
^ wanIp := (wanIp findTokens: '"')