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

質問

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

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

回答No.1

BLUEPIXY · ベストアンサー

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?url=/library/en-us/wmisdk/wmi/win32_networkadapterconfiguration.asp

お礼

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