Are you trying to scare your friends with an amazing virus prank. I think this is the one you are looking for. This is a very good 'virus' which can make your friend mad.

>> Open notepad and type in the following

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

>> Save this file as Name.vbs (Use any name you want followed by the .vbs extension). But change the 'Save as Type' to 'All Files' .

>> When your friend opens this 'virus' the CD/DVD ROMs of his computer will open and close until they 'drive nuts' because it cannot be stopped by closing the CD/DVD ROMs.

>> To stop this start the Task Manager and end the process called wscript.exe

>> You can also set the 'virus' to run for a specific time. For this right click on the 'virus' and select Properties. Go to Script tab and select the option Stop script after specified number of seconds: and set the time to desired number of seconds. This will create a new file in the same folder.

>> To really scare your friend, copy this file to his startup folder.

>> Enjoy !!!