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
'-------------------------------------------------------
'Caranya, kopi kode diatas di notepad baru, dan simpan
'dengan ekstensi .vbs
Bagi yang ingin copy paste jangan lupa di sertai back link ke situs ini dan sumber.
