|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - VBS скрипт для открытия/закрытия cd dvd привода по времени |
|
|
VBS/WSH/JS - VBS скрипт для открытия/закрытия cd dvd привода по времени
|
Новый участник Сообщения: 6 |
Здравствуйте. Напишите мне пожалуйста VBS скрипт который будет открывать cd dvd привод, ждать 2 часа (держать привод открытым), потом закрывать cd dvd привод(держать привод закрытым 2 часа), и так до бесконечности. И у меня есть еще вопрос-можно ли прошить привод чтобы он делал такие действия самостоятельно без участия компьютера или arduino?
|
|
Отправлено: 23:32, 27-02-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать malder72, это можно сделать, но не на WSH. На WSH можно только открыть лоток привода, и только. Описанное Вами — открытие/закрытие/временное блокирование кнопки лотка — требует более глубинного доступа. Проще всего обратиться к C/C++.
|
Отправлено: 23:42, 27-02-2017 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать а как же команды open, Wait, Pause, Sleep, close ?
|
Отправлено: 18:14, 28-02-2017 | #3 |
Старожил Сообщения: 161
|
Профиль | Отправить PM | Цитировать Iska, Ну, Вы еще ASMx86 скажите. Дофига готовых утилит же.
|
Отправлено: 18:51, 28-02-2017 | #4 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 19:17, 28-02-2017 | #5 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Цитата:
Вот забабахал пример скрипта, вроде бы работает Скрытый текст
Set TI = CreateObject("WMPlayer.OCX.7" )
Set CDROM = TI.cdromCollection if CDROM.Count >= 1 then do For i = 0 to CDROM.Count - 1 CDROM.Item(i).Eject WScript.Sleep 3600000 Next ' CDTRAY loop End If |
|
Отправлено: 19:22, 28-02-2017 | #6 |
Старожил Сообщения: 161
|
Профиль | Отправить PM | Цитировать malder72, Есть утилиты открывания-закрывания, которые можно запихать в шедулер.
|
Отправлено: 19:44, 28-02-2017 | #7 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Во-первых, класса WMPlayer.OCX.7 может и не быть. Во-вторых, где тут закрытие, блокировка лотка? Я бы уж лучше поигрался с IMAPI (Image Mastering API - Wikipedia, Image Mastering API (Windows)), хотя бы в свежих версиях обещают её поддержку «искаропки»:
Option Explicit Dim objDiscMaster Set objDiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2") If objDiscMaster.IsSupportedEnvironment Then If objDiscMaster.Count > 0 Then With WScript.CreateObject("IMAPI2.MsftDiscRecorder2") .InitializeDiscRecorder objDiscMaster.Item(0) WScript.Echo .VendorId, .ProductId WScript.Sleep 3000 .EjectMedia WScript.Sleep 3000 .CloseTray End With End If End If Set objDiscMaster = Nothing WScript.Quit 0 |
Отправлено: 20:02, 28-02-2017 | #8 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Цитата:
Цитата:
Цитата:
|
|||
Отправлено: 21:21, 28-02-2017 | #9 |
Старожил Сообщения: 161
|
Профиль | Отправить PM | Цитировать Цитата malder72:
Вам шашечки или ехать? |
|
Отправлено: 21:33, 28-02-2017 | #10 |
|
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Утилита для открывания/закрывания трея CD-DVD привода | apozlevich | AutoIt | 1 | 28-04-2012 21:40 | |
[решено] скрипт открытия закрытия сд ром | Pozia | AutoIt | 5 | 14-12-2010 21:13 | |
Vista / 2008 - [решено] Не найден драйвер для CD/DVD привода | Rapsody | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 11 | 17-11-2010 09:26 | |
VBS/WSH/JS - [решено] определение CD/DVD-привода по маркерному файлу WIN51IP | vosya | Скриптовые языки администрирования Windows | 3 | 22-08-2010 15:36 | |
[решено] Как написать програмку для открытия и закрытия DVD-RW, если буква диска неизвестна? | Fraks | AutoIt | 11 | 30-08-2009 18:40 |
|