Abrir y/o cerrar la Bandeja del CD...

ProcessKill · Febrero 24, 2010, 03:53:30 PM

Abrir:

Código: php


Set WMP = CreateObject("WMPlayer.OCX.7")
msgbox WMP.CdRomCollection.Count
for i = 0 to WMP.CdRomCollection.Count -1 
 WMP.cdromCollection.Item(i).Eject
next
wscript.quit

Cerrar

Código: php


Set WMP = CreateObject("WMPlayer.OCX.7")
msgbox WMP.CdRomCollection.Count
for i = 0 to WMP.CdRomCollection.Count -1 
 WMP.cdromCollection.Item(i).Eject
 WMP.cdromCollection.Item(i).Eject
next
wscript.quit

bytes

Abrir y/o cerrar la Bandeja del CD...

ProcessKill

Febrero 24, 2010, 03:53:30 PM Ultima modificación: Julio 21, 2014, 07:20:27 PM por Expermicid