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

*slamat mencobat*

cara mematikan nya

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