Make a Virus that Will Open And Close Your CD-ROM

To create such type of virus open notepad and type below code on it.

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 it any name with .vbs extension. and then double click on file and see what happens.


To stop it, Go to Task Manager , Go to Processes tab, find wscript.exe and End Process.