WSH/Disc取り出し

　CD(DVD)ドライブをできるだけ確実に取り出す。Shellを使います。

Sub Eject()
    Set Shell=WScript.CreateObject("Shell.Application")
    Set Folder=Shell.NameSpace(17)
    Set FolderItem=Folder.ParseName("Q:\")
    For Each Verb In FolderItem.Verbs
      Select Case Verb.Name
        Case "E&ject","取り出し(&J)"
          Verb.DoIt
      End Select
    Next
End Sub