IP 地址可能不止一个，一个静态文本可能不适合。

Dim objWMIService,colAdapters,objAdapter,IPAddress

On Error Resume Next

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter In colAdapters

    For Each IPAddress In objAdapter.IPAddress

        If InStr(IPAddress, ".") > 0 Then 

            HMIRuntime.Trace "本机IPv4地址: " & IPAddress & vbCrLf

        End If

    Next

Next