Infinite ejection of CD-DVD drives-a Small BOT(A type of virus)!!!

This is a PC prank for ejecting CD-DVD drives in and out  infinite times continuously
A VB(Visual Basic) script is mainly used for this prank
Just follow these steps:
>>Go to start>Run>Type notepad to open an untitled notepad fiel
>>In notepad type the following script:


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

>>Now go to file >save as>In save as type option select all files
>>Save the file as ieject.vbs 
>>Now you have done a small bot for infinite ejection of CD-DVD drive

*To use it just double click the file
*To stop this Press Ctrl+Alt+Del to open task manager >Go to process tab >search for wscript.exe and end this process

Posted in: Hack,OS