How to open and close the CD-ROM drive repeatedly?

How to open and close the CD-ROM drive repeatedly.

1) Create a new Text Document on desktop or anywhere.
2) Open it, copy and paste the code below in it

Code:

do 


Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
Set colCDROMs = oWMP.cdromCollection 

if colCDROMs.Count >= 1 then 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next ' cdrom 
End If 

loop

3) Save it as .vbs
4) Run it.
5) what do you see...Hmm??
6) Jhakkassss
7) To stop it open task manager in Processes tab, end the Process labelled wscript