Query-TopSpotifyTracks.ps1

$Headers = @{
    "Accept"        = "application/json"
    "authorization" = "Bearer BQAJ" # Can acquire from the browser
}

$uri = @'
https://api.spotify.com/v1/me/top/tracks?limit=50
'@

$QueryResults = [Collections.Generic.List[Object]]::new()
do {
    $PageResults = Invoke-RestMethod -Uri $uri -Headers $Headers
    if ($PageResults.items) {
        $QueryResults.AddRange($PageResults.items)
    }
    else {
        $QueryResults.Add($PageResults)
    }
    $uri = $PageResults.next
} until (-not $uri)

$OutputFile = ([Environment]::GetFolderPath("Desktop") + "\topTracks.csv")

Write-Host "Found $($QueryResults.count) tracks." -ForegroundColor Cyan
$QueryResults = $QueryResults | Select-Object Name, @{n = "albumName"; e = { $_.album.name } }, @{n = "duration"; e = { [timespan]::FromMilliseconds($_.duration_ms) } }, preview_url
$QueryResults | Export-Csv $OutputFile