How To POP OUT your friend’s CD or DVD Drive ?

If you want to create simple funny virus for your friend. This can be useful for you. This script will open CD/DVD drive automatically after running this script.

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

Open Notepad and type the code written above. Save it to your friend as virus.vbs and send to your friends. Be sure to check the extension. It must be vbs.
Enjoy :-)