library(iptools)
library(rvest)
library(Matrix)
library(readxl)
library(stringr)
library(stringi)
library(IPtoCountry)

Aircel_ltd <- read_excel("Urls/Aircel ltd.xlsx")

for (i in Aircel_ltd$URL) {
  myIP <- hostname_to_ip(i)
  print(myIP)
  IP_location(myIP)

}