Open - Close CD-ROM Virus VBscript

Ever felt like scaring the SHIT out of ur Friend...
Well..Here's the TricksTerminal trick for u...

Open and Close the Cd-ROM infinite number of times......U wont forget the expression on ur friends face...! Hahaha..


Copy the Following code in a Notepad File & Save it as 'anyname.vbs'

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


How can u stop the script.?
- Restart ur PC
OR
- End the Script from task Manager..! Process Name -> Wscript.exe

Hehehe...
Plz Comment if u Lyk this post!