Problème pour récupérer le nom de la machine hôte
Bonjour à tous.
En fouillant sur le net, j'ai découvert le code ci-dessous pour récupérer le nom de la machine cliente.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Function GetMachineName() As String
GetMachineName = "No name"
Try
Dim Trame As System.Web.HttpContext = Me.Context
Dim userIpAddress As String = Trame.Request.UserHostAddress
Dim hostEntry As IPHostEntry = Dns.GetHostEntry(userIpAddress)
GetMachineName = hostEntry.HostName
Catch ex As Exception
End Try
End Function |
En mode création, le code s'exécute correctement et donne le nom du client bien qu'en mode deboggage, le code saute de la ligne
Citation:
Dim Trame As System.Web.HttpContext = Me.Context
à .
Déployé, le code s'exécute normalement sur le navigateur du serveur web et donne son nom. Ailleurs, sur un poste distant quelconque, il s'affiche la page "Oops". Et impossible de saisir le message d'erreur.
Quelqu'un a t-il une idée de cet incident?
