Sila copy & paste kod berikut ke dalam notepad;
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
colCDROMs.Item(i).Eject
Next ' cdrom
end if
Setelah save notepad tadi, tukar extension last name dari .txt ke .vbs dan cuba buka file vbs itu dengan membuat double click dan cd ataau dvd rom pasti akan terbuka.
selamat mencuba..
