[amel27]

батником без сторонних утилит (типа NirCmd) никак, через VBS:

Код:

WScript.CreateObject("Shell.Application").NameSpace("E:").Self.InvokeVerb("&Извлечь")

[Nun-Nun]

amel27,

Попробовал - лоток открывается, а как закрыть? Собственно, хотелось бы немного универсальности, чтобы одним скриптом и закрыть и открыть, если конечно такое возможно.

P.S. Нашёл вот такой скрипт, но он почему-то не работает, при запуске выдаёт сообщение об ошибке в символе 1 строки 9:

читать дальше »

Sub CloseODD
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(Wscript.arguments.Item(1)).Eject
colCDROMs.Item(Wscript.arguments.Item(1)).Eject
EndSub


Sub OpenODD
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(Wscript.arguments.Item(1)).Eject
EndSub


SelectCase WScript.arguments(0)
Case"open"
OpenODD
Case"close"
CloseODD
EndSelect


Wscript.CreateObject("Wscript.Shell").Run "taskkill /im wscript.exe /f"

[amel27]

одним скриптом и закрыть и открыть, если конечно такое возможно »

NirCmd может

выдаёт сообщение об ошибке »

если убрать "лишнее":

Код:

Set objWMP = CreateObject("WMPlayer.OCX.7")
Set colCDs = objWMP.cdromCollection

colCDs.Item(0).Eject  
MsgBox "Press any key to close CD",64,"Open Close Cd Tray"
colCDs.Item(0).Eject

[Nun-Nun]

если убрать "лишнее": Set objWMP = CreateObject("WMPlayer.OCX.7") Set colCDs = objWMP.cdromCollection colCDs.Item(0).Eject MsgBox "Press any key to close CD",64,"Open Close Cd Tray" colCDs.Item(0).Eject»

Да, так работает - и закрывается и открывается. Единственный мешающий элемент - это висящее на экране после открытия лотка окно с кнопкой "ОК".

[amel27]

Единственный мешающий элемент - это висящее на экране после открытия лотка окно с кнопкой "ОК". »

суть этого способа в том, что все нечётные вызовы Eject() открывают лоток, чётные - закрывают,
а определить сколько нам вызовов нужно нет возможности:

Код:

вызовов :    1 раз      2 раза
---------------------------------
закрыт	:  открывает   откр/закр
открыт  :      -       закрывает

всё-таки самое надёжное - через сторонние утилиты:

Код:

nircmd cdrom open

Код:

nircmd cdrom close

[Nun-Nun]

amel27,

Начал дальше пробовать вариант с VBS-скриптом, но наткнулся ещё на одни грабли: если использую VBS-скрипт в составе батника перед командой SET /p yesno="Записать диск? (Y/N)", то после отработки VBS (т.е. открытия/закрытия лотка) батник зависает и оставшаяся его часть не выполняется. Пытался тасккилом убить wscript.exe-процесс - не помогло. Снимаю его через диспетчер задач (почему-то иногда снимается, иногда нет) - тогда оставшаяся часть батника работает. Видимо действительно с VBS-ом дело не пойдёт и без сторонней утилиты никак.

[amel27]

использую VBS-скрипт в составе батника »

это как?.. может запускать VBS через START?

Код:

Start "" wscript "cdrom.vbs"

[Nun-Nun]

это как?.. »

%windir%\System32\wscript.exe %PathVBS%\OpenCloseDVD.VBS

может запускать VBS через START? »

ОК, попробую.

[Nun-Nun]

С командой START всё прошло без глюков. Ещё раз спасибо! Тему можно закрывать.

P.S. Попробовал NirCMD: впечатления только положительные. Говоря словами Ослика из известного мультика: "...И входит, и выходит..."