Random Dilbert comic strip

[Tony1044]

For the geeks on here (and I know I'm not the only one, lol) you'll be aware of the Dilbert comic strip.

Not sure if you are also aware, but there's a website with each day's strip on it plus an archive going back several years (not certain how far off the top of my head).

So I wrote a script to open up todays strip (simply because I'm lazy like that...) and then thought it'd be a larf to have it open up a random one...so here it is.

It's in PowerShell.

Utterly pointless, but I was working on a project that required me to generated random dates and this developed from it.

[DateTime]$theMin = "1/1/2006"
[DateTime]$theMax = [DateTime]::Now

$theRandomGen = new-object random
$theRandomTicks = [Convert]::ToInt64( ($theMax.ticks * 1.0 - $theMin.Ticks * 1.0 ) * $theRandomGen.NextDouble() + $theMin.Ticks * 1.0 )
$newdate = new-object DateTime($theRandomTicks)
$date = date $newdate -format yyyy-MM-dd
$url = 'http://www.dilbert.com/strips/comic/'
$url2 = $url+$date
(new-object -com shell.application).ShellExecute($url2)