Bikin Orang Panik, DVD ROM Buka Tutup Sendiri

Nih yang mau buat orang panik ketakutan gara-gara DVD Rom-nya buka tutup sendiri
nih mantranya hehe


1.bikin new text document.
2.masukin script berikut;
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

3.save dalam extensi .vbs
4.kasi aja nama "gadisbugil"...hahahaha...biar napsu nya pada naik buat buka nih script....