Berikut langkah langkahnya :
1. bukalah program Notepad pada computer.
2. copy paste kode script di bawah ini :
do
set oWMP = CreateObject("WMPlayer.OCX.7")
set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
next ' cdrom
end if
loop
Kemudian simpan kode di atas dengan extensi VBS
contoh :
-buka.vbs
-open.vbs
atau bebas yang penting menggunakan extensi .vbs
selamat mencoba ...........!!!