獲取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