特定の要件に合わせてエクスペリエンスを調整するために、逆引き DNS ルックアップを実行して、ユーザーが適切なドメインにいるかどうかを判断しています。次の特定のインスタンスを除いて、以下のコードは正しく機能しています。
VPN および https:// 経由でサイトに接続する場合 (vpn および http:// は意図したとおりに機能します) 次のエラーがスローされます: "エラー: 要求された名前は有効ですが、要求されたタイプのデータが見つかりませんでした。 "
詳細な調査の結果、システムは予想される逆引き参照 (例: ws234.domainName.com) ではなく、奇妙なコンピューター名 (例: 3EDs45F46FG) を返しています。
Public Shared Function GetDomain() As String
Dim RQST As System.Web.HttpRequest
RQST = HttpContext.Current.Request
Return ReverseLookup(RQST.UserHostName)'UserHostName as ip address
End Function
Public Shared Function ReverseLookup(ip As String) As String
Dim netDns As System.Net.Dns
Try
Dim host As New IPHostEntry
host = netDns.GetHostEntry(ip)
Return host.HostName & "<BR><BR>ip: " & ip
Catch ex As System.Net.Sockets.SocketException
Return "Error: " & ex.Message & "<BR><BR>" & "ip: " & ip
End Try
End Function