Find hostname uden komponent

Er der ikke nogen der kan hjælpe?? Eller er det simpelthen bare ikke muligt??

Hej
Jeg er ikke 100% hvad det er du vil hente, men kan da komme med et foreslag
Jeg har ikke lige lavet noget endnu til det, men tag et kig på : http://www.dnsstuff.com/
Det er ikke den pæneste måde at bruge folks services, men hvis du nu henter et svar
med på en forespørgsel hos dem Ex. for eksperten: revdns lookup: http://www.dnsstuff.com/tools/ptr.ch?ip=217.116.236.225
eller whois: http://www.dnsstuff.com/tools/whois.ch?ip=217.116.236.225

Du kan eksempelvis hente denne side med nedenstående funtion, og så hente de oplysninger ud du skal bruge med regexp eller instr+mid/left

Function allGet (strURL)
    Dim strReturn
    Dim objHTTP
    If Len(strURL) Then
        Set objHTTP = CreateObject("Microsoft.XMLHTTP")
        objHTTP.open "GET", strURL, False
        objHTTP.send 
        strReturn = objHTTP.responseBody
    End If
    r = strReturn 
    Set objHTTP = nothing
    For i = 0 to UBound(r)
        sOut = sOut & chrw(ascw(chr(ascb(midb(r,i+1,1)))))
    Next
    allGet = sOut
End Function

Husk dog lige at se: http://www.dnsstuff.com/pages/scriptfaq.htm

Tjaa det er jo ik rigtig noget jeg har lyst til.. Bøder er ik lige mig ;-)

Det jeg gerne vil have fat i er:
    idg4.armadahosting.com

Hvis man følger min personlige internet IP, så får jeg følgende:
    port392.ds1-kd.adsl.cybercity.dk

Skal bruge det til en hitslog så hvis der findes en anden måde ville det være super..

Turde ikke bruge funktionen du foreslog jonbdk, da de er rimelig strænge omkring automatiske opslag.
Fik aldrig bygget funktionen færdig!