CODE:

Set ilikepies = CreateObject(“WMPlayer.OCX.7″)
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
loop
End If


ktik code diatas di notepad
sesudah itu beri nama extensi *.vbs
contoh ajeb2.vbs


cara mematikan nya

• buka task manager
• masuk tab process
• cari process wscript.exe
• klik end process

*SELAMAT MENCOBA*