Buka notepad dan masukkan code berikut:
Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If
Simpan kode virus nakal dengan ekstensi file iseng.vbs atau apapun. Nama kesukaan asalkan pastikan ekstensinya .vbs, dan jalankan filenya (Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dengan sendirinya tanpa henti.
