ＶＢＡからＩＰアドレスを取得する方法を教えてください。

現在使用しているＰＣは、NETやVBの開発環境を持って
いないため簡単にWinsockコントロールを使用した
ＩＰアドレス取得ができません。
そのためＡＰＩを使った昔の方法で対処したいと考えて
おり調べています。どなたかおわかりになる方がいまし
たら教えて頂けると助かります。

開発環境は、Excel2000 VBAです。
よろしくお願いします。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/03/05 06:29

APIではないんですけど、

ＷＭＩを使うとこんな感じ
Dim NetAdapters, nao, ip
Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where (IPEnabled = TRUE)")

for each nao in NetAdapters 'ネットワークアダプターは、複数ある場合がある
MsgBox nao.Caption 'ネットワークアダプター
for each ip in nao.IPAddress 'IPは、複数割り当てられている場合がある
MsgBox ip 'IPアドレス
next
next
http://msdn.microsoft.com/library/default.asp?ur …

この回答へのお礼

教えて頂いた通りにやり上手くいきました。
WMIは敷居が高いと思っておりましたが、大変便利なもの
なのですね。この度は有難う御座いました。

お礼日時：2006/03/05 09:51