Continuously keep on ejecting CD/DVD drive

It is Another Cool Trick to do with your friends..

1. open notepad and type following: 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
2. Now save thi file as *.vbs
3. now send this file to your friend via email or portable drives and tell them to open it…
4. have fun…

Its not harmful and restart will fix it…