CDやDVDドライブを開く、閉じる。(その２)

Shell.Applicationを使います。

For Each FolderItem In CreateObject("Shell.Application").NameSpace(17).Items()
  If FolderItem.ExtendedProperty("Type")="CD ドライブ" Then FolderItem.InvokeVerb "取り出し(&J)"
Next

メディアの排出だけに限定するなら、

For Each FolderItem In CreateObject("Shell.Application").NameSpace(17).Items()
  If FolderItem.ExtendedProperty("Type")="CD ドライブ" Then If FolderItem.ExtendedProperty("FileSystem")<>"" Then FolderItem.InvokeVerb "取り出し(&J)"
Next