В интернете эта тема поднималась уже не раз, как известно: "Лень родилась вперед человека" и каждый раз лазить под стол, искать заветную кнопочку на приводе (лотке) CD-ROM-а (DVD-ROMa) кому-то бывает неудобно. В связи с этим родилось следующее решение.
Создаете на рабочем столе файл под названием cdrom.vbs, открываете его блокнотом и добавляете туда следующие строки:
Set objWMP = CreateObject("WMPlayer.OCX.7")
Set CDs = objWMP.cdromCollection
CDs.Item(0).Eject
MsgBox "Извлеките из привода исходный диск или вставьте новый диск.",64,"Открыть\Закрыть привод"
CDs.Item(0).Eject
Wscript.CreateObject("Wscript.Shell").Run "taskkill /im wscript.exe /f"
Set CDs = objWMP.cdromCollection
CDs.Item(0).Eject
MsgBox "Извлеките из привода исходный диск или вставьте новый диск.",64,"Открыть\Закрыть привод"
CDs.Item(0).Eject
Wscript.CreateObject("Wscript.Shell").Run "taskkill /im wscript.exe /f"
Сохраняете. Пользуйтесь.
При этом, если привода (лотка) у Вас два или больше, то для каждого можно создать свой файл, назвать его, например CDROM1.vbs, CDROM2.vbs и так далее и в коде заменить строку:
CDs.Item(0).Eject
для второго на:
CDs.Item(1).Eject
для третьего на:
CDs.Item(2).Eject
и так далее.
