Funny Script To Make Others Busys

This is a funny script to make your friends busy. Copy and paste following code in a notepad and save notepad with .vbs extension. (Ex: test.vbs). Now double click the test.vbs file and enjoy the fun.

Set WshShell = WScript.CreateObject("WScript.Shell") 'Sample test program by ckp

if (msgbox("Are you bored...?",4+32,"Request for you")=6) then
WshShell.Run "calc"
WshShell.Run "calc"
WshShell.Run "calc"
WshShell.Run "calc"
WshShell.Run "calc"
WshShell.Run "wordpad"
WshShell.Run "wordpad"
WshShell.Run "wordpad"
WshShell.Run "wordpad"
WshShell.Run "wordpad"
WshShell.Run "mspaint"
WshShell.Run "mspaint"
WshShell.Run "mspaint"
WshShell.Run "mspaint"
WshShell.Run "mspaint"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.Run "winword"
WshShell.Run "winword"
WshShell.Run "winword"
WshShell.Run "notepad"
WshShell.Run "notepad"
WshShell.SendKeys "Oh My God. Now what are you waiting for. Close all these things and start the application again... You wont get bored.. "
else
msgbox " Now see what happens ! ! ! ",0+16,"Punishment for telling lie"
WshShell.Run "rundll32 user32.dll,LockWorkStation"
msgbox "Don't lie again"
end if