Create A Funny Virus With Notepad That Contineously Eject CD/DVD Drives|Must Try

Hello Friends i make a virus by using notepad.Actually this is a vbs trick.If you run this code on your pc then it continously eject CD/DVD drives of your computer Even you delete it from your computer. 

This trick having a solution the person who tells me the solution of this trick i surely reward it.But without shut down your pc.

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

Copy and paste this code into your notepad and save it to virus.vbs and see the magic.
and comment me the solution of this trick without shut down.