想要自動彈出光驅？那么請使用下面的方法一或者方法二。

既想自動彈出光驅，又想自動關閉光驅？請使用下面的方法二。

方法一：

請前往 http://cid-3222d068881c5251.skydrive.live.com/redir.aspx?resid=3222D068881C5251!199 下載 EJECT.EXE，這個程序可以自動彈出光驅，提取自 DOS 程序。如果您不放心，可以下載后殺毒看看~

方法二：

請前往 http://cid-3222d068881c5251.skydrive.live.com/redir.aspx?resid=3222D068881C5251!199 下載 eject_cdrom.vbs。這個是個腳本，是我搜索資料學習后自己編寫和調試的，有的殺軟可能會報潛在的威脅，不放心的話，您也可以自己下載下來，然后用鼠標右擊它，選擇"編輯"看看源代碼。代碼其實蠻簡單的，為方便大家學習交流，我將源碼展示如下，您也可以自己復制粘貼到記事本中，然后另存為 *.vbs 文件來執行，這樣就免去下載了，呵呵。

'CD-ROM 彈出/關閉腳本 by Eric Sheh

'http://www.rzrgm.cn/mvperic

'支持多光驅（關閉不適用于筆記本計算機光驅和吸入式光驅）

Set WMP = CreateObject("WMPlayer.ocx")

Set CD = WMP.CDRomCollection

If CD.Count >= 1 Then

    For i = 0 To CD.Count - 1

         CD.Item(i).Eject

    Next

End If

For i = 0 To CD.Count - 1

      If vbYes = MsgBox("是否關閉光驅 "& CD.Item(i).DriveSpecifier & " ？" ,vbYesNo Or vbQuestion, APP_TITLE) Then

      CD.Item(i).Eject

      Else

      If CD.Item(i).DriveSpecifier="" Then

          Exit For

      End If

      End If

Next

祝大家新春快樂~大展鴻兔！