Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Nun-Nun

Ветеран


Сообщения: 2158
Благодарности: 294

Профиль | Отправить PM | Цитировать


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"

-------
Свобода не означает вседозволенность.


Последний раз редактировалось Nun-Nun, 15-06-2011 в 05:32.


Отправлено: 05:12, 15-06-2011 | #3