Определение IP адреса и страны по доменному имени

Sub GetCountriesFromIP()
    On Error Resume Next
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0")
    Dim ra As Range, cell As Range, oPingResult As Variant
    Set ra = Range([A3], Range("A" & Rows.Count).End(xlUp))
    ra.Offset(, 1).Resize(, 2).ClearContents
 
    For Each cell In ra.Cells
        domain$ = Trim(cell): IP = ""
        If domain$ Like "*?.?*" Then
 
            ' определяем IP адрес по доменному имени
            For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _
                ("SELECT * FROM Win32_PingStatus WHERE Address = '" & domain$ & "'")
                If IsObject(oPingResult) Then IP = oPingResult.ProtocolAddress
            Next
            cell.Next = IP: DoEvents
 
            ' если IP-адрес определён, получаем географическое положение IP адреса
            If cell.Next Like "*#.*#.*#.*#" Then
                URL$ = "http://ru.smart-ip.net/geoip-xml/" & cell.Next
                objhttp.Open "GET", URL$, False: objhttp.send
                cell.Next.Next = Split(Split(objhttp.responseText, "<countryName>")(1), "</countryName>")(0)
            End If
        End If
    Next cell
    Set objhttp = Nothing
End Sub

Sub GetCountriesFromDomain()
    On Error Resume Next
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0")
    Dim ra As Range, cell As Range, oPingResult As Variant
    Set ra = Range([A3], Range("A" & Rows.Count).End(xlUp))
    ra.Offset(, 1).Resize(, 2).ClearContents
 
    For Each cell In ra.Cells
        domain$ = Trim(cell): IP = ""
        If domain$ Like "*?[A-z].[A-z]*" Then
            URL$ = "http://ru.smart-ip.net/geoip-xml/" & domain$
            objhttp.Open "GET", URL$, False: objhttp.send: DoEvents
            cell.Next = Split(Split(objhttp.responseText, "<host>")(1), "</host>")(0)
            cell.Next.Next = Split(Split(objhttp.responseText, "<countryName>")(1), "</countryName>")(0)
        End If
    Next cell
    Set objhttp = Nothing
End Sub