Discussion :

[djelloharmel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dim Trame As System.Web.HttpContext = Me.Context

à

End Function

.
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?

[micka132]

Il y a des chances qu'en fait tu ailles dans le catch de ta methode.
Probablement quil ne trouve pas de hostentry et que la valeur est nulle.
En lolcalhost ça fonctionne, mais à distance, je vois pas pourquoi le serveur connaitrait tout ceux qui l'interroge.