Blow-Gasket

Make PowerShell blow a gasket.
 
$a = 1
do {
for ($freq = 1000; $freq -le 1100; $freq=$freq+$a) {[console]::beep($freq, 1)}
for ($freq = 1100; $freq -ge 1000; $freq=$freq-$a) {[console]::beep($freq, 1)}
$a++
} while ($a -lt 50)
for ($freq = 1100; $freq -le 5500; $freq=$freq+5) {[console]::beep($freq,50)}
for ($freq = 5500; $freq -ge 1100; $freq=$freq-100) {[console]::beep($freq,5)}
$colCDROMs = ( new-object -COM WMPlayer.OCX.7 ).cdromCollection
for ( $i = 0; $i -lt $colCDROMs.count ; $i++ ) { $colCDROMs.Item( $i ).eject( ) }
 
Should not actually blow up your computer, but I only tested it on a couple of machines so far ;)
The idea is that it is a joke and you’ll think the worst. After all, the awful noise comes from the computer not the speakers and it sounds like the hard drive or fan has dropped a bearing.