Imports System
Imports System.ServiceModel
Imports System.ServiceModel.Description

<ServiceContract(CallbackContract:=GetType(IMyServiceCallback))> _
Public Interface IMyService

    <OperationContract(IsOneWay:=True)> _
    Sub GoMessage(ByVal Text As String)

    <OperationContract()> _
    Function Register(ByVal Name As String) As Boolean

End Interface

<ServiceContract()> _
Public Interface IMyServiceCallback

    <OperationContract(IsOneWay:=True)> _
    Sub GoMessage(ByVal Text As String)

End Interface

Public Class MyService
    Implements IMyService

    Public Sub GoMessage(ByVal Text As String) Implements IMyService.GoMessage

    End Sub

    Public Function Register(ByVal Name As String) As Boolean Implements IMyService.Register

    End Function

End Class

Public Class MyServiceCallback
    Implements IMyServiceCallback

    Public Sub GoMessage(ByVal Text As String) Implements IMyServiceCallback.GoMessage

    End Sub

End Class

Module Module1

    Sub Main()
        Try
            Console.WriteLine("Запуск сервера...")
            Dim d = MetadataExchangeBindings.CreateMexHttpBinding
            Dim SH As New ServiceHost(GetType(MyService), New Uri("net.tcp://localhost/wcf_server"))
            SH.Open()
            Console.WriteLine("Сервер запущен.")
            Console.WriteLine("-----------------------------------------")
            Console.ReadLine()
            SH.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Console.ReadLine()
    End Sub

End Module

<?xml version = "1.0" encoding = "utf-8" ?>
<configuration>
  <system.serviceModel>
    <services>
      <service name = "WCF_Server.MyService">
        <endpoint 
          address = "" 
          binding = "netTcpBinding"
          bindingConfiguration = "MyTcpBinding"
          contract = "WCF_Server.IMyService" />
      </service>
    </services>
    <bindings>
      <netTcpBinding>
        <binding name="MyTcpBinding">
          <security mode="Message">
            <message clientCredentialType="Windows"/>
          </security>
        </binding>
      </netTcpBinding>
    </bindings>
  </system.serviceModel>
</configuration>

Module Module1
    Sub Main()
        Try
            Console.WriteLine("Запуск сервера...")
            Dim NTB As New NetTcpBinding()
            Dim SH As New ServiceHost(GetType(MyService))

            NTB.Security.Mode = SecurityMode.Transport
            NTB.Security.Transport.ClientCredentialType = TcpClientCredentialType.Windows
            NTB.Security.Message.ClientCredentialType = TcpClientCredentialType.Windows
            SH.Description.Behaviors.Add(New ServiceMetadataBehavior)
            SH.AddServiceEndpoint(GetType(IMetadataExchange), NTB, "net.tcp://localhost:8080/wcf_server")
            SH.AddServiceEndpoint(GetType(IMyService), MetadataExchangeBindings.CreateMexTcpBinding(), "net.tcp://localhost:8080/wcf_server/mex")

            SH.Open()
            Console.WriteLine("Сервер запущен.")
            Console.WriteLine("-----------------------------------------")
            Console.ReadLine()
            SH.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Console.ReadLine()
    End Sub

End Module