5 svar · 289 visningar · startad av lilja
Jag har ett IP-nummer som jags kulle vilja kolla upp. Hur kan man göra detta? Den informationen jag skulle vilja ha är t.ex. vilken leverantör som användaren använder och vilket land han/hon är från... Skulle också gärna vilja ha "Reverse DNS". vd är det förresten? Är Reverse DNS alltid samma för en person??
Ex:
Reverse DNS: h82n1fls307o968.telia.com
Länk:
http://www.whois.sc/81.229.236.82
Jag kan hur man hämtar en annan sida och letar i HTML-koden efter det man vill ha... Men så vill jag inte göra nu. Dessutom så vill väl inte WhoIs-sökmotorerna att jag gör så? Har läst det på alla WhoIs vad jag vet??
Jag har kommit fram till att jag vill söka i olika databasen såsom den på ripe.net för Europa...
De flesta lösningar verkar vara baserade på XMLHTTP men jag harockså läst att man kan kontakta databasen på ett annat sätt som rekommenderas av ripe.net om man skall söka i ett script på den egna webbplattsen...
Är det någon som har en aning om hur man gör detta eller vet en sida som beskriver det??
Skicka ett mail till dom och fråga om dom har en komponent för att göra det.
Du kan ju alltid bygga en egen komponent om du besitter kunskaperna. Jag vet att jag sett en WhoIs-app på https://www.codeguru.com
hmm, nja. Om det handlar om dll-filer så vet jag inte...
Hittade dock en komponent på http://pellesoft.se/communicate/userprogram/program.aspx?tid=302. Men då krävs väl att man kan installera dll-filer i servern??
Äh, får nog skapa ett script som använder XMLHTTP ändå... Hittade två bra sidor som man borde kunna plocka ut mycket information ifrån...
Jag lyckades fixa fram Reverse DNS genom att hämta hämta en sida och köra lite RegularExpressions...
Har dock nya problem med ungefär samma sak i tråden http://www.webforum.nu/showthread.php?s=&threadid=130054&forumid=22
Function GetRDNS(strIP)
If InStr(strIP, ".") = 3 Then
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.dnsstuff.com/tools/ptr.ch?ip=" & strIP, False
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
With New RegExp
.IgnoreCase = True
.Global = False
.Pattern = "PTR record:.*TTL"
For Each Match In .Execute(strHTML)
strMatch = Mid(Match.Value, 16, (Len(Match.Value)-25))
Next
End With
GetRDNS = strMatch
Else
GetRDNS = "No valid IPv4"
End If
End Function