IPアドレスの取得方法

ルータにPCを接続してDMZゾーンに置き、wwwサーバとしてHPを公開しています。
OSはWindowsXP Proです。
そこでプログラムを作成し、接続毎にDHCPで変化するグローバルIPアドレスを取得したいのですがどのように取得すればよいのでしょうか？
開発環境はVB6.0です。
よろしくお願いします。

No.1 回答者： gugux 回答日時： 2005/07/06 16:45

"グローバルIPアドレス　VB　取得　コード"

でググったら

http://homepage1.nifty.com/MADIA/vb/vb_bbs2/2002 …
すぐでましたよ。これでよいのかな？？？

No.2 ベストアンサー 回答者： y_an 回答日時： 2005/07/08 15:00

そのプログラムはそのwwwサーバ上で動くと言う事で良いのでしょうか？

そうなのであれば、自分も似たような事をやりたかったので以下の方法で行いました。
但し前提条件として、
・ルータの設定及び状態の確認等はブラウザから行えることと、
・そこにグローバルIPが表示されること
です。

それを踏まえて以下の処理を行います。
・グローバルIPが表示されているルータのページ（HTMLファイル）を
　InetコントロールやBASP21等を使用し取得します。
・そのページの必要な部分（グローバルIP）だけを
　Instr関数やMid関数を駆使し、取得します。
　（ややこしい場合はInstr関数を多々使用しないだめかも。）

大抵のルータには上記前提条件に見合うページがあると思います。
また、それらのページはCGI等で生成されているっぽいので、
毎度HTML部分が変わり取得できないという事も無いと思います。
ですので、そのページのURLの特定と、
グローバルIPが設定されている箇所の解析ができれば、
後は上記処理で単純に出来ると思います。