>>766>>768
あまりに抽象的すぎるなぁ…
「自分がインターネットにアクセスしたときに相手から見えるIPアドレス」ならば、
Perlならワンライナーで
% perl -MLWP::Simple -e 'getprint "http://whatismyip.org/";'
かな。

参考
ttp://diary.sshida.com/20090409-3-diary.html