> なにか方法がありましたら宜しくお願いします。 Dim W As Object Dim N As Object Dim A As Object Dim IPs As Variant Dim D As Variant Set W = GetObject("winmgmts:") Set N = W.InstancesOf("Win32_NetworkAdapterConfiguration") For Each A In N Debug.Print A.Caption; "に割り当てられているIPアドレスは、" IPs = A.IPAddress If IsNull(IPs) Then Debug.Print "ありません。" Else For Each D In IPs Debug.Print D, Next Debug.Print "です。" End If Next