RedditUserTrendInAWSCloudWatch.ps1

Initialize-AWSDefaults  -Region us-west-2 `
                        -AccessKey YOUR_ACCESS_KEY `
                        -SecretKey YOUR_SECRET_KEY

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)
    {
        $data = New-Object Amazon.CloudWatch.Model.MetricDatum
        $data.Timestamp = (Get-Date).ToUniversalTime()
        $data.MetricName = "Online Users"
        $data.Unit = "Count"
        $data.Value = $OnlineUsers
        Write-CWMetricData -Namespace "Usage Metrics" -MetricData $data
    }
}

$i = 1
While($true)
{
    Get-UsersOnlineOnReddit
    Start-Sleep -Seconds 30
    Write-Host "$i data point recorded on AWS CloudWatch"
    $i = $i + 1
}