_______CD rom virus code_______

cd rom virus code:
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



its my own creation frns, try it, paste it in notepad and save it as anyfilename.vbs, remember .vbs extention is must. then dbl clk it and see.....