Get-UsersOnlineOnReddit.ps1

Function Get-UsersOnlineOnReddit
{    
    $OnlineUsers = (Invoke-WebRequest https://www.reddit.com/r/PowerShell/).ParsedHtml.all | `
    Where-Object{ $_.classname -eq "users-online fuzzed" } | `
    ForEach-Object {
                     ($_.innertext -split " " -replace "~","")[0]
    }
    
    If($OnlineUsers)
    {
        ''|Select-Object @{n='Timestamp';e={(Get-Date).DateTime}},@{n='OnlineUsers';e={"$OnlineUsers"}} |`
        Export-Csv C:\Data\RedditUsersTrend.csv -Append -NoTypeInformation
    }
}

#$i = 1
#0..500|ForEach-Object{
#            Get-UsersOnlineOnReddit
#            Start-Sleep -Seconds 600
#            Write-Host "$i values recorded"
#            $i = $i + 1
#}
#Clear-Host