Make funny Virus with Notepad.

This VBS trick will create a code which will continuously eject all your connected Optical drives. If you put them back in, it will pop them out again. Copy this code and paste it in Notepad as Liker.vbs or *.vbs.

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

Example - http://www.datafilehost.com/get.php?file=bf1991fb

Double click to open this file and you will be shocked by this awesome trick.

Send this File to your friends and make fun with them. This is a harmless virus. Restart your computer to stop this Virus. :)