Make virus in VB script

I was posting all kind of information and the latest news around the tech world till now. I thought of posting about some kind of scripts or some tips and tricks for you guys, so here is my first attempt.
In this post we are going to see a VBscript to scare away your friends. This script will open and close the CD-Drive infinite number of times.
Here is the trick
1. Open Notepad
2. Copy this code and paste it in notepad
Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If
3. Save the file as name.vbs
4. Open the file and see your CD-Drive open and close infinite number of times :)

How to stop the script ?

1. Restart your computer

2. End the script from Window Task Manager  | process name – Wscript.exe