$end = 3000

$folder_name = Get-Date -UFormat %Y-%m-%d
$folder_name = 'Steam/' + $folder_name
New-Item -Path $folder_name -ItemType Directory -Force | Out-Null

For ($i=0; $i -lt $end; $i++)
{
	$path = "valve$i.steamcontent.com"
	Write-Progress -Activity "Scanning $path" -Status "$i/$end" -PercentComplete (($i * 100) / $end)

	$output = Resolve-DnsName -Name $path -Type AAAA -ErrorAction SilentlyContinue

	if ($output.IP6Address)
	{
		$output.IP6Address | Out-File -LiteralPath "$folder_name/$path.txt" -Force
	}
}