Public Function recupIp() As String Dim context As OperationContext context = OperationContext.Current Dim messageproperties As MessageProperties messageproperties = context.IncomingMessageProperties Dim endpointProperty As RemoteEndpointMessageProperty = messageproperties(RemoteEndpointMessageProperty.Name) recupIp = endpointProperty.Address End Function