6 de los mejores trucos de Bloc de notas y bromas (3 / 7 paso)

Paso 3: Pop out Cd

Set oWMP = CreateObject("WMPlayer.OCX.7″)

Set colCDROMs = oWMP.cdromCollection

Si colCDROMs.Count > = 1 entonces

Para i = 0 to colCDROMs.Count-1

colCDROMs.Item(i). De expulsión

Siguiente

Para i = 0 tobcolCDROMs.Count-1

colCDROMs.Item(i). De expulsión

Siguiente

End If wscript.sleep 5000

lazo

guardar como archivo .vbs