vb.net - 获取IP和计算机名

Question

我有这个代码:

localIp = Request.UserHostName
hostName = DetermineCompName(localIp)

Session.Add("localIp", localIp)
Session.Add("hostName", hostName)

如您所见，我将这两个变量放在一个 session 中，以便我可以在需要时使用它。在 10 台计算机上测试该应用程序，我发现在某些计算机上它获取了客户端 IP 和计算机名称，但在其他计算机上它为空。

正如在某些计算机上它可以工作一样，我不明白出了什么问题。有人有正确的方法吗？

Answer 1

要获取计算机名称，您只需执行以下操作:

Dim hostName As String = Environment.MachineName 

或者:

Dim hostName As String = My.Computer.Name

对于IP来说有点棘手，我假设你想要ipV4，所以你可以尝试这个:

Dim localIp As String
For Each address As System.Net.IPAddress In System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList
    If address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
        localIp = address.ToString()
        Exit For
    End If
Next

请注意，如果您这样做:

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

然后这将返回 ipV6。