Цитата Nun-Nun:
|
одним скриптом и закрыть и открыть, если конечно такое возможно »
|
NirCmd может
Цитата 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
