Looks like looping through the drive collection again calling the eject method will close the drive. So you could modify with something like this using a MsgBox as a "pause" in between the open and close.
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection
For i = 0 To colCDROMs.count-1 colCDROMs.item(i).eject Next
MsgBox "Close",0,"Disc drive"
For i = 0 To colCDROMs.count-1 colCDROMs.item(i).eject Next
Log in to comment