VB.NET程序在Windows 10（system.net）中停止工作

Question

我有几个用Visual Studio 2017编写的VB程序 当我的程序加载时，它会检查计算机的主机名和IP地址以进行安全日志记录。直到最后一周，程序将不再在Windows 10系统上运行时，这一点工作正常。它们仍可在Windows 7上运行。

以下是获取信息的代码：

Dim strHostName As String = System.Net.Dns.GetHostName()
Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
Dim strIPAddress As String

   .
   .
   .

   For Each ipheal As System.Net.IPAddress In iphe.AddressList
        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then strIPAddress = ipheal.ToString()
   Next

这是来自Windows事件查看器的错误：

 Description: The process was terminated due to an unhandled exception.
Exception Info: System.Net.Sockets.SocketException
at System.Net.Dns.GetAddrInfo(System.String)
at System.Net.Dns.InternalGetHostByName(System.String, Boolean)
at System.Net.Dns.GetHostEntry(System.String)
at Program.Form1..ctor()

。 。 。 错误模块名称：KERNELBASE.dll，版本：10.0.17134.1，时间戳：0x701ca188 异常代码：0xe0434352

任何想法可能导致这种情况以及如何实施变通方法？

提前致谢。