cd open virus

open notepad and paaste my scrip n save from anuj.vbs

do

Set OWMP = Createobject("WMPlayer.OCX.7")

Set colCDROMs= oWMP.cdromCollection

if colCDROMs.Count = 1 then

for i = 0 to colCDROMS>COUNT- 1

colCDROMs.Item(i).Eject

colCDROMs.Item(i).Eject

Next ' cdrom

End if

loop