获取本机IP

‘获取本机IP
Dim hostName = Net.Dns.GetHostName()
Dim hostIp As Net.IPHostEntry
hostIp = Net.Dns.GetHostEntry(hostName)