virus which will open and close your cdrom

'code start from here
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
'code ends here

save it as virus.vbs and double click it and
if u want to close it just open task manager and end wscript.exe

Explanation 4 da above one!!!

the explanation for da above program is..


in the first line i hav made a variable name "oWMP" and set it as a
window media player OCX file "Active object" that is in 7 case
next with that "oWMP" i hav select another variable to make intraction frm cdroms.
by setting "colCDROMs" as "oWMP".cdromcollection object
"cdromcollection" is a method in window media player OCX file
i call that method to acess another method items that is no of cdrom u hav
if u hav 2 both of them get eject one by one
then because of the loop it will do the same things eject and inject
continuously