想要自动弹出光驱？那么请使用下面的方法一或者方法二。
既想自动弹出光驱，又想自动关闭光驱？请使用下面的方法二。
方法一：
请前往 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.cnblogs.com/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
祝大家新春快乐~大展鸿兔！
本文转自 hbycscc 51CTO博客，原文链接:http://blog.51cto.com/mvperic/489380
