ネットワークのIPアドレスを取得するには？ (ID:85155)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 当方の WinXP 環境では、下記のコードにて、ケーブル断線時に IPアドレスを取得出来ました。あまりスマートな方法ではありませんが… Private Sub Form_Load() Dim oWshShell As Object Dim oWshScriptExec As Object Dim sCmdLine As String Dim oStdOut As Object sCmdLine = "NETSH INTERFACE IP SHOW ADDRESS NAME=""ローカル エリア接続"" " Set oWshShell = CreateObject("WScript.Shell") Set oWshScriptExec = oWshShell.Exec(sCmdLine) Set oStdOut = oWshScriptExec.StdOut Do While oWshScriptExec.Status = 0 DoEvents Loop Do Until oStdOut.AtEndOfStream Debug.Print oStdOut.ReadLine Loop oStdOut.Close Set oStdOut = Nothing Set oWshScriptExec = Nothing Set oWshShell = Nothing End Sub