DVD Problem

[koleviko]

Hello. The button on my DVD recording device is broken and I was wondering whether it is possible through macro script Open and Close her .

[Rain]

This script opens my DVD and CD drive. I'm not sure about closing them but you should be able to close manually.

Code: Select all

VBSTART
Sub EjectTray
  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
    Next ' cdrom
  End If
End Sub
VBEND

VBRun>EjectTray

I hope this helps

[koleviko]

Thank you, but there is a problem. First DVD opens but does not close. I want the process is automated, even if I could ask to be / Open and Close / 5 times or more below the line. Furthermore VBScript too large in volume 1.5mb , while the macro will be more than 50kb. Let when it is a Macro script not VBS.

[Bob Hansen]

See WizMo or NirCmd or FastKake for command line utilities that include tray open/close functions. You can use Macro Scheduler to call the command lines as needed with Run Program.

Wizmo ( http://www.grc.com/wizmo/wizmo.htm ):
DRIVE OPEN (EJECT) and CLOSE (LOAD)

open — opens the system's default CDROM drive tray.
Example: wizmo open
close — closes the system's default CDROM drive tray.
Example: wizmo close
open={drive:} — open or eject specific removable drive media.
----------------------------

NirCmd ( http://www.nirsoft.net/utils/nircmd.html ):
Open the door of J: CD-ROM drive nircmd.exe cdrom open j:
Close the door of Y: CD-ROM drive nircmd.exe cdrom close y:
-----------------------------

FastKake: ( http://www.phy.uni-bayreuth.de/~btp344/ ... index.html )
Adds shortcuts to your system to open/close CD drive
Screenshot and summary at http://www.makeuseof.com/tag/windows-sy ... -fastkake/
--------------------------------

[koleviko]

Thanks. Excellent programs. Pity that macro not to write sript 2 procedures for opening and closing of the CD.