Abra a paradinha de colocar disco com isso

Não sei se aqui é o local certo para postar isto...

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


Código /\
l


Olha,créditos não têm...Pois fiz alguma alterações...E já passou por tanta gente...


Copie aquele código e cole no notepad e salve .vbs

Eu usei aquele código quando o meu trequinho do cedê não abria

é útil

não entendi bem como usar esse código