Устранение неполадок p2p Resolve

Question

Я пытаюсь зарегистрировать одноранговое имя, используя код, и могу разрешить одноранговый узел на другом компьютере. Моя первая попытка - заставить его работать в моей собственной сети, но я хочу, чтобы он работал глобально.

Обновление: кажется, не удается добавить регистрацию. Я могу зарегистрироваться через командную строку на другом компьютере и разрешить его на другом.

Я знаю, что это большая неопределенность, но буду отвечать на вопросы.

Я также просматривал следующие ссылки для поиска и устранения неисправностей:

http://blogs.msdn.com/b/p2p/archive/2007/07/24/pnrp-debugging-guide-part-1.aspx

http://blogs.msdn.com/b/p2p/archive/2007/06/15/pnrp-and-pnrp-net.aspx

Я использую следующую команду для разрешения, но работает только на локальной машине:

netsh p2p pnrp одноранговое разрешение peername=0.AMS cloud=Global_

Вот код, который я использую:

Imports System
Imports System.ServiceModel
Imports System.ServiceModel.Description
Imports System.Net
Imports System.Net.PeerToPeer

Module Module1

    Sub Main()

        Dim reg As PeerNameRegistration = RegisterPeer("AMS", 8000)
        reg.Cloud = PeerToPeer.Cloud.Global
        reg.Comment = "Hello!"
        reg.Start()

        Console.WriteLine("Please press 'Enter' to exit...")
        Console.ReadLine()
    End Sub

    Public Function RegisterPeer(ByVal classifier As String, ByVal port As Integer) As PeerNameRegistration
        Dim peerName As PeerName = New PeerName(classifier, PeerNameType.Unsecured)
        Dim reg As New PeerNameRegistration(peerName, port)
        reg.UseAutoEndPointSelection = True
        Return reg
    End Function

End Module