Iseng Mengeject CD-Drive Terus Menerus

[+] Post Title :

Iseng Mengeject CD-Drive Terus Menerus

[+] Date : Selasa, 11 Oktober 2011
[+] Author : Alma'ruff audi
[+] Link : https://almaevolution.blogspot.com/2011/10/iseng-mengeject-cd-drive-terus-menerus.html
[+] Type : trick NOTEpad

INGAT LAH sebelum berbuat sesuatu , harus di niati :DD
-------------------------------------------------------------

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
-------------------------------------------------------------
save script di atas dengan nama TERSERAH.vbs