Script Membuka dan Menutup CDROM-RW-DVD Setiap Detik

Beberapa saat yang lalu ada seorang teman yang memberikan sebuah potongan script aneh yang katanya bisa membuat CDROM/RW/DVD membuka dan menutup sendiri dan anehnya lagi Sarimin ingin mencobanya :)

Sarimin penasaran :) kita coba yuk..., berikut potongan script yang sebenarnya ini adalah sebuah script dari Microsoft yang sering disebut sebagai Windows Script Host.

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

Berikut caranya :
1. Buka Notepad, copy dan paste script di atas
2. Simpan script di atas dengan tipe *.vbs
3. Misal CDROM.vbs, kemudian jalankan.