[ASP.NET/VB]Whois lookup werkt niet met .com extensie

[BlackBurn]

Ik ben bezig om een Whois paginaatje te schrijven in asp.net.
Via een tutorial op internet en wat zoeken ben ik een heel eind gekomen en werkt mijn functie met nl namen perfect!
Echter wanneer ik com namen wil controleren, krijg ik geen resultaat.

Ik heb al verschillende servers geprobeerd, heb ook geprobeerd een \n of een \r\n mee te geven, maar beide biedde geen werkend resultaat.
Heeft iemand enig idee, wat ik hier fout doe?

Dit is mijn code.

Visual Basic:

    Function WhoIS(ByVal strDomein)
        Dim arrDomein As Array
        Dim strResult As String
        Dim objTcpClient As New TcpClient
        objTcpClient.Connect("whois.networksolutions.com", 43)
        'objTcpClient.Connect("whois.domain-registry.nl", 43)


        Dim objStream As NetworkStream
        objStream = objTcpClient.GetStream

        strDomein = "strDomein" + "\r\n"
        arrDomein = Encoding.ASCII.GetBytes(strDomein)

        objStream.Write(arrDomein, 0, strDomein.Length)

        Dim objStreamRdr As New StreamReader(objTcpClient.GetStream, Encoding.ASCII)

        strResult = objStreamRdr.ReadToEnd
        strResult = Regex.Replace(strResult, "\n", "<br/>")

        WhoIS = strResult

        objTcpClient.Close()

    End Function

[BlackBurn]

Oké ik ben echt stom

\n is alleen voor C# in vb.net is dit natuurlijk &vbCrLf

Het werkt nu, echter nog wel de melding dat google.com vrij is


de strdomein hierboven is natuurlijk zonder ""

[ Voor 46% gewijzigd door BlackBurn op 10-05-2006 20:54 ]

[BlackBurn]

Voor degene die de code nog even wilde zien.

Visual Basic:

    Function WhoIS(ByVal strDomein)
        Dim arrDomein As Array
        Dim strResult As String
        Dim objTcpClient As New TcpClient
        'objTcpClient.Connect("whois.networksolutions.com", 43)
        objTcpClient.Connect("WhoIS.crsnic.net", 43)

        'objTcpClient.Connect("whois.domain-registry.nl", 43)


        Dim objStream As NetworkStream
        objStream = objTcpClient.GetStream

        strDomein = strDomein + vbCrLf
        arrDomein = Encoding.ASCII.GetBytes(strDomein)

        objStream.Write(arrDomein, 0, strDomein.Length)

        Dim objStreamRdr As New StreamReader(objTcpClient.GetStream, Encoding.ASCII)

        strResult = objStreamRdr.ReadToEnd
        strResult = Regex.Replace(strResult, "\n", "<br/>")

        WhoIS = strResult

        objTcpClient.Close()

    End Function

Bij netwerk solutions kreeg ik telens dat alles vrij was, dat kwam denk ik omdat ik daar geen lid ben.