В интернете эта тема поднималась уже не раз, как известно: "Лень родилась вперед человека" и каждый раз лазить под стол, искать заветную кнопочку на приводе (лотке) 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"

Сохраняете. Пользуйтесь.

При этом, если привода (лотка) у Вас два или больше, то для каждого можно создать свой файл, назвать его, например CDROM1.vbs, CDROM2.vbs и так далее и в коде заменить строку:

CDs.Item(0).Eject 

для второго на:

CDs.Item(1).Eject 

для третьего на:

CDs.Item(2).Eject 

и так далее.

Add comment


Security code
Refresh