不知為什么，在微軟目前的操作系統中，光驅的命令菜單都是只有“彈出”命令，沒有“關閉”命令。如果我們不想按光驅的按鈕關閉彈出的托盤，就不得不依靠安裝第三方軟件來實現。其實，我們也可以用VBScript語句彌補這點不足。 關閉所有光驅 如果你的系統中安裝了一個以上的光驅，那么打開記事本，輸入以下代碼： Set wmp = CreateObject("WMPlayer.OCX.7") Set cdrom = wmp.cdromCollection If cdrom.Count >= 1 then '（該句用來判斷你的系統中裝了多少個光驅） For z = 0 to cdrom.Count - 1 cdrom.Item(z).Eject Next For z = 0 to cdrom.Count - 1 cdrom.Item(z).Eject Next End If 注意將文件類型改為“所有文件”后，將文件保存為“關閉所有.vbe”,在桌面上為該文件建一個快捷方式，以后雙擊桌面上的快捷方式就可以關閉所有彈出的光驅。 關閉指定的光驅 以下語句可以讓你關閉指定的光驅，例如要關閉第一個光驅，我們可以新建個一文本文件，輸入以下代碼： Set wmp = CreateObject("WMPlayer.OCX.7") Set cdrom = wmp.cdromCollection cdrom.Item(0).Eject 同樣將該文件保存為后綴為VBE的文件，命名為“close1.vbe”,以后雙擊該文件即可關閉你系統中的第一個光驅盤符。在以上語句里，item(0)中的“0”代表第一個光驅盤符，如果要關閉第二個光驅盤符，請將這里的“0”加1，依此類推，就可實現關閉指定的盤符了。 我們還可以將“關閉”添加到光驅的右鍵菜單中。方法是在注冊表編輯器中依次展開[HKEY_LOCAL_MACHINE/SOFTWARE/Classes/Drive/shell ]分支，然后在右側窗口中新建 “CloseCDROM”分支，進入該分區后，在右側窗口雙擊“默認”，將其默認值修改為“關閉所有”；再點擊“編輯→新建→項”，將新鍵重命名為“command”,把“默認”值修改為“C:/WINDOWS/System32/WScript.exe C:/關閉所有.vbe”（這里要將C:/改為“關閉所有.vbe”文件在你系統中保存的路徑）。 用同樣的方法可以將關閉指定光驅的命令加入光驅的右鍵菜單中。修改完畢后，關閉注冊表就可在右鍵菜單中找到“關閉所有”和關閉指定盤符的命令。
