Run this as hang.vbs (should last 4 minutes in a loop).
Dim x, y
For x = 1 to 500000000
y = Now()
next
MsgBox("Finished Hanging At " & y)
Students will need to terminate wscript.exe
Good luck,
CreateWindow http://mymessagetaker.com
Stop using those paper phone message pads
make the computer work for you. http://justpageprobe.com
The FREE Web page utility you always wanted.
Monitor your enterprise Web Servers.
Keep your router connected.
Email your IP to where you need it.