How to open and then close the optical disk drive single time (with VBScript)

Question

I need to open and then after a few seconds, close the CD drive, with VBS. All I know now, is only to eject the drive with this code

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
colCDROMs.Item(i).Eject
End If

a question this simple may seem dumb, but forgive me I'm not a programmer.

score 1 · Answer 1 · answered Jun 30 '17 at 00:29

Give a try for this vbscript :

Option Explicit
'To open the CD-Rom
Call Open_Close_CD()
'Make a pause for 20 seconds and you can modify it for your needs
Call Pause(20)
'To Close the CD-Rom
Call Open_Close_CD()
'****************************************
Sub Open_Close_CD()
Dim oWMP,colCDROMs,i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
    colCDROMs.Item(i).Eject
End If
End Sub
'****************************************
Sub Pause(NSeconds)
    Wscript.Sleep(NSeconds*1000)
End Sub
'****************************************

Why it doesn't close? And what is Windows Media Player for? – user152435 Jun 30 '17 at 15:16 — user152435, Jun 30 '17 at 15:16

score 0 · Answer 2 · answered Dec 14 '18 at 04:46

try This

Set TI = CreateObject("WMPlayer.OCX.7" )
Set CDROM = TI.cdromCollection
if CDROM.Count >= 1 then
For i = 0 to CDROM.Count - 1
CDROM.Item(i).Eject
Next ' CDTRAY
For i = 0 to CDROM.Count - 1
CDROM.Item(i).Eject
Next ' CDTRAY
End If

this works for me.

How to open and then close the optical disk drive single time (with VBScript)

2 Answers2