A virus which opens and closes CD rom

A virus which opens and closes CD romCopy the follwing code in note pad and save it with extension .vbs'code start from hereSet oWMP = CreateObject("WMPlayer.OCX.7" )Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thendoFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNext ' cdromFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNext ' cdromloopEnd If'code end from hereto end it go to taskmanager thenprocesses tab then end the wscript