获取VB.Net中没有DNS条目的远程客户端的IP地址

Question

我有一个运行在终端服务器上的Windows窗体应用程序。我需要确定每台客户机的IP地址。

我发现了一种方法来检索具有DNS条目的计算机的IP地址（如下所示），但我的一些瘦客户端使用静态IP进行设置并且没有DNS名称。有没有办法确定没有DNS名称的远程客户端的IP地址？

Dim clientName As String = My.Computer.Network.ClientName 
Dim IPHost As Net.IPHostEntry = Net.Dns.Resolve(clientName & "domain.com") 
Dim addresses As Net.IPAddress() = IPHost.AddressList 
fullIP = addresses(0).ToString() 

Answer 1

要获得主IP地址，你可以使用：

System.Net.Dns.GetHostEntry("").AddressList(0).ToString 

这可能会返回一个IP6地址，在这种情况下，你可以尝试使用找到IP4：

Dim ipentry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry("") 

For i As Integer = 0 To ipentry.AddressList.Count - 1 
    MsgBox(System.Net.Dns.GetHostEntry("").AddressList(i).ToString) 
Next