1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Get-Content 'F:\power\ips\listado.txt' | % { #Query the APNIC Whois Database $url='https://wq.apnic.net/apnic-bin/whois.pl?searchtext='+$_ $url $result = Invoke-WebRequest $url $whois=$result.AllElements | Where tagName -eq "pre" | %{$_.innerText} $fichero='F:\power\'+$_.replace(".","")+'.txt' $whois | Out-File $fichero -Append sleep -Seconds 5 #User contributions Wikipedia $url='https://es.wikipedia.org/wiki/Especial:Contribuciones/'+$_ $url $result = Invoke-WebRequest $url $wikipedia=$result.AllElements | Where Class -eq "mw-contributions-list" | %{$_.innerText} $fichero='F:\power\'+$_.replace(".","")+'.txt' $wikipedia | Out-File $fichero -Append sleep -Seconds 5 } |