Paso 1: Paso 1.
Copie el código siguiente en él-
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
hacer
Si colCDROMs.Count > = 1 entonces
Para i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). De expulsión
Siguiente
Para i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). De expulsión
Siguiente
End If
Wscript.Sleep 5000
lazo