Abrir y cerrar bandeja de CD con 1 click

Abrir bandeja de cd:


Set oWMP = CreateObject("WMPlayer.OCX.7"
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject


Cerrer bandeja de CD:

Set oWMP = CreateObject("WMPlayer.OCX.7"
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject

Nota: donde esta la carita en el codigo va esto ) todo pegado
esque lo detecta como codigo de emoticon

Para usar el codigo, necesitas pegarlo en el "Bloc de notas", y guardarlo con extencion .VBS
(significa que al guardarlo debes poner al ultimo del nombre .VBS) y quedaria algo asi:
Nombre del archivo.VBS

Solamente abran el archivo y...





Quiero ser NFU