The cd-rom ejecting code in vb script....

Its the prank program that makes no effect with the computer hardware and software. It is just the irritating program that irritates the computer by ejecting and loading the cd-drive. just type the code in the notepad and save it with the extension .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
 
Once the program is opened the cd-drive ejects and load itself  continuously. To stop it just do the simple thing 

1. press ctrl+alt+del
2. a windows appears, click the processes tab
3. There you will see the numerous process, checkout for the "wscript.exe"
4. right click on it and then choose "end process".

The program terminates.

check this out.