Paso 1: Abrir Bloc de notas
Después de abrir Bloc de notas escriba el siguiente
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count = 1 then
para i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i). De expulsión
colCDROMs.Item(i). De expulsión
Siguiente ' CD-ROM
Terminar si