VBA で IP アドレスを取得する。
Function GetIPAddress() As String
Dim NetAdapters, objNic, strIPAddress
Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") _
.ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
"Where (IPEnabled = TRUE)")
For Each objNic In NetAdapters
For Each strIPAddress In objNic.IPAddress
GetIPAddress = strIPAddress
Exit For
Next
Exit For
Next
End Function
参照