Private Function GetWebServicesServerNames() As String

        Dim serverNames As New StringBuilder
        Dim appConfig = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        Dim serviceModel = ServiceModelSectionGroup.GetSectionGroup(appConfig)
        Dim bindings = serviceModel.Bindings
        Dim endpoints = serviceModel.Client.Endpoints

        For i = 0 To endpoints.Count() - 1
            Dim endpointElement = endpoints(i)
            serverNames.AppendLine(endpointElement.Address.Host)
        Next

        Return serverNames.ToString()

    End Function

Gets a list of web service server names from app.config

Get Web Services Server Names (app.config exe)

Visual Basic