Thanks for your help,

Mike

From a quick check of Google on these groups, using EJECT and CDROM, I found:

(1)
http://home.att.net/~wshvbs/index.htm
(scroll down, look at "Opening and Closing the CD-ROM Drawer")

(2)
Following anonymously reposted:
Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
  If d.DriveType = CDROM Then Eject d.DriveLetter & ":\"
Next

Sub Eject(CDROM)
  Dim ssfDrives
  ssfDrives = 17
  CreateObject("Shell.Application")_
    .Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

(3) You can also use the Widnows Media Player; haven't investigated that one...

Thanks for your help.   The WSH worked fine.

Thanks again,

Mike

"Alex K. Angelopoulos" <alex_angelopoulos_at_hotmail_dot_com_remove__> wrote

I have no clue what IOCTL_CDROM_EJECT_MEDIA means.

From a quick check of Google on these groups, using EJECT and CDROM, I
found:

(1)
http://home.att.net/~wshvbs/index.htm
(scroll down, look at "Opening and Closing the CD-ROM Drawer")

(2)
Following anonymously reposted:
Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
  If d.DriveType = CDROM Then Eject d.DriveLetter & ":\"
Next

Sub Eject(CDROM)
  Dim ssfDrives
  ssfDrives = 17
  CreateObject("Shell.Application")_
    .Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

(3) You can also use the Widnows Media Player; haven't investigated that
one...

Here is a way to use WMP to open the cdrom drawer:

--- <snip> ---
Set oWMP = CreateObject("WMPlayer.OCX.7")

' test connecting with the cdromCollection interface...
nCDROM_Drives = oWMP.cdromCollection.Count
MsgBox("CDROM drive count is: " & CStr(nCDROM_Drives))

' if cdrom collection found, then execute eject method
'   on the first item (drive) in the collection...
if nCDROM_Drives >= 1 then oWMP.cdromCollection.Item(0).eject
--- <snip> ---

cheers, jw