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?