<p class="dont-be-bad">When the server was last reloaded, we had <a href="/tools/banned.ch">4062 IP addresses banned</a>.<br />Remember, you are not allowed to use automated programs to access our tools, unless you have a purchased a DNSstuff automated usage plan.<br />Please email <a href="mailto:sales@dnsstuff.com">sales@dnsstuff.com<;/a> to learn more.</p>

<pre>IP address:                     78.62.163.22
Reverse DNS:                    78-62-163-22.static.zebra.lt.
Reverse DNS authenticity:       [Verified]
ASN:                            0
ASN Name:                       IANA-RSVD-0
IP range connectivity:          0
Registrar (per ASN):            Unknown
Country (per IP registrar):     LT [Lithuania]
Country Currency:               Unknown 
Country IP Range:               78.56.0.0 to 78.63.255.255
Country fraud profile:          High
City (per outside source):      Kaunas, Kauno Apskritis
Country (per outside source):   LT [Lithuania]
Private (internal) IP?          No
IP address registrar:           whois.arin.net
Known Proxy?                    No
Link for WHOIS:                 <a href="/tools/whois.ch?ip=78.62.163.22">78.62.163.22</a>
<br /><div id="map" style="width: 310px; height: 310px"></div>

Dim objHTTP As Object, sc As Object, js As Object
Dim objRegExp As Object, objMatches As Object
Dim LangFrom  As String, LangTo  As String, BaseURL  As String
Dim URL As String, SrcText As String, RetText As String

SrcText = "78.62.163.22"
LangFrom = "en"
LangTo = "ru"
BaseURL = "http://private.dnsstuff.com/tools/ipall.ch?domain="

Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Set js = sc.CodeObject
URL = js.encodeURI(BaseURL & SrcText)

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", URL, False
objHTTP.Send

While objHTTP.readyState <>  4 
   DoEvents
Wend

RetText = objHTTP.ResponseText

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "Country [(]per outside source[)]:(.*?)"
Set objMatches = objRegExp.Execute(RetText)
Dim vertimas As String
Debug.Print objMatches( 0 ).SubMatches( 0 ) & ", " & objMatches( 0 ).SubMatches( 1 )