Creare un virus che apre e chiude il lettore CD

Creare un virus che apre e chiude il lettore CD
ECCO IL CODICE:

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

Per fare aprire e chiudere il cassettino 2 volte copiate il codice 2 volte.

Alla fine salvate il File del blocco note in formato .vbs