IP info

[Skitty]

I'm making an app to be used for server access inspection, I have a list of IP addresses that are checked and I want to know if anyone here knows of an easy way to find info on an ip.

Say I have IP address 255.255.255.255, I check to see if its pingable, if so, go on to check if the IP has an accessible web service.

Any one have any protips I should know about?

[Klovis]

MsgBox(0,"IP",@IPAddress1) Will give you your IP address if that is your question.

I don't quite understand getting info on your IP address could you please expand that statement?

[trancexx]

Try _TCPIpToName.

[Skitty]

MsgBox(0,"IP",@IPAddress1) Will give you your IP address if that is your question.

I don't quite understand getting info on your IP address could you please expand that statement?

Thanks, but that's not exactly what my inquiry pertained to, say I have the IP address of Google.com, I need a solution for discovering if that IP hosts a web site and what that web sites name would be (E.g. Google.com), problem is, some IP's may host a multitude of services reachable by various domain names, In short, I need to discover if a particular IP address hosts any web services.

And fyi, a more reliable way to find your own IP would be to use _GetIP() or a more updated version of the same-

Func _GetIP2()
    Local $ip, $t_ip, $bRead, $sRead, $sReturn
    If InetGet("http://checkip.dyndns.org/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "\~ip.tmp") Then
        $ip = FileRead(@TempDir & "\~ip.tmp", FileGetSize(@TempDir & "\~ip.tmp"))
        FileDelete(@TempDir & "\~ip.tmp")
        $ip = StringTrimLeft($ip, StringInStr($ip, ":") + 1)
        $ip = StringTrimRight($ip, StringLen($ip) - StringInStr($ip, "/") + 2)
        $t_ip = StringSplit($ip, '.')
        If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then
            Return $ip
        EndIf
    EndIf
    $bRead = InetRead("http://api.hostip.info/?ip=")
    $sRead = BinaryToString($bRead)
    $sReturn = StringRegExp($sRead, "(.*?)", 3)
    If Not @error Then Return $sReturn[0]
    $bRead = InetRead("http://www.checkingtools.com/ip_check")
    $sRead = BinaryToString($bRead)
    $sReturn = StringRegExp($sRead, '(?s)(?i)[url="/\?ip=(.*?)"]', 3)
    If Not @error Then Return $sReturn[0]
    Return SetError(1, 0, -1)
EndFunc   ;==>_GetIP

Try _TCPIpToName.

I didn't know about that function, thanks Trancexx, that's pretty close to what I need although it didn't hit the nail on the head.

Edit: well, so far my best solution is using inetget and looking for the <title></title> tags.

Edited August 7, 2011 by THAT1ANONYMOUSEDUDE

[guinness]

Look at _GetIP() in my signature, there are other sites to obtain more details about an IP address.

[Skitty]

Look at _GetIP() in my signature, there are other sites to obtain more details about an IP address.

Why thank you, your sig contains lots of interesting information.

This is the best I've came up with using an internet service to do the work for me, but I can't find anything in their usage terms that say I cant do this so this is what I'll use from now on.

$Info = "None"
$IP = "69.147.76.15"
$bRead = InetRead("http://whois.arin.net/rest/nets;q="&$IP)
$sRead = BinaryToString($bRead)
$sReturn = StringRegExp($sRead, 'name="(.*?)"', 3)
If IsArray($sReturn) Then $Info = $sReturn[0]
MsgBox(0,"info",$Info)

This is kind of what I needed.

Correction, this is exactly what I needed, thank you guinness, all these _GetIP() functions really do help.

Edit: I was doing something wrong with trancexx's method, I see not that _TCPIpToName is also pretty much what I needed.

Edited August 8, 2011 by THAT1ANONYMOUSEDUDE