[Creat0R]

TERMINAL,

Можно ли с помощью скрипта открыть каретку CD-ROMa или DVD-ROMa?

CDTray() ?

Вот пример (by amel27):

Код:

; Читаем параметр командной строки и если обнаружен вызываем функцию,
; переменная окружения ERRORLEVEL устанавливается равной количеству ошибок
; (привод может быть заблокирован Nero или другой программой)

$LastParm = $CmdLine[$CmdLine[0]]
If $LastParm Then
    _CDEject ($LastParm)
    Exit (@error)
EndIf

; Функция выброса трея CD/DVD привода
; в качестве параметра принимается буква диска или порядковый номер (по алфавиту),
; для обработки всех найденных приводов достаточно передать -1,
; по умолчанию применяется к первому найденному приводу.
;
; Возвращает количество успешно обработанных приводов,
; значение @error устанавливается равным количеству неудач,
; суммарное значение равно количеству обнаруженных приводов.

Func _CDEject ($drive = 1)
    Local $i = 1, $err = 0, $aDrives = DriveGetDrive ("CDROM")
    If IsArray ($aDrives) Then
        For $i = 1 To $aDrives [0]
            If ($drive = -1) OR ($drive = $i) OR ($drive & ':' = $aDrives [$i]) Then
                If CDTray ($aDrives [$i], "open") =0 Then $err = $err +1
            EndIf
        Next
    EndIf
    SetError ($err)
    Return $i - $err -1
EndFunc