progam nakal

tmen2,buat progam nakal yuk. . . kadang2 kita sebel ma temen,dosen labkomkn. . ??jagn mpe dendam lho,dosa. .mending dikerjain j. . kita iseng2 buatin scripts .vbs.
bka notepadmu trus ktik:

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

Truz,Simpanlah dengan file tadi dengan ekstensi file iseng.vbs tau apapun nma ksukaan salkan pastikan ekstensinya .vbs, dan jlankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan terbuka/tertutup dg sndirinya tnpa henti.
Salah satu cara menghentikan aksi progam Nakal ini ialah dengan buka task manager dan matikan proses wscripts.exe