[Iska]

Fortress1, во-первых, ничто не мешает пользовать подобные приложения без наличия привода — например, для создания образов, просмотра проектов и т.п.

Самое простое, WSH:

Код:

Option Explicit

Dim objDrive

For Each objDrive In WScript.CreateObject("Scripting.FileSystemObject").Drives
	If objDrive.DriveType = 4 Then
		WScript.Quit 1
	End If
Next

WScript.Quit 0

В случае отсутствия привода возвращается нулевой код возврата, при наличии — ненулевой.

Аналогично, WSH+Wbem:

Код:

Option Explicit

If WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_CDROMDrive").Count > 0 Then
	WScript.Quit 1
End If

WScript.Quit 0

[Foreigner]

Fortress1,

Код:

@echo off
setlocal

for /f %%i in (' "2>nul wmic cdrom get name /value" ') do 1>nul set "%%i"
if defined name (echo cdrom exists) else (echo cdrom not exists)

PS. Могут быть usb-cd
PSS. Могут быть виртуальные дисководы

[Petya V4sechkin]

Fortress1, в дополнение к вышесказанному
Утилиты для определения возможностей CD-привода (IfRW, IfDVD)

[Fortress1]

Fortress1, во-первых, ничто не мешает пользовать подобные приложения без наличия привода — например, для создания образов, просмотра проектов и т.п. Самое простое, WSH: »

Добрый день, а как этот скрпт доделать чтоб он либо запускал программу с ключом либо нет если нет дисковода?

@echo off setlocal for /f %%i in (' "2>nul wmic cdrom get name /value" ') do 1>nul set "%%i" if defined name (echo cdrom exists) else (echo cdrom not exists) »

или это как дописать?)) И что лучше батник или скрипт? Может что то универсальнее из этого? Будет запускаться на ОС от ХР до вин8 х32-х64 возможно англоязычн

[Foreigner]

Fortress1,

Код:

@echo off
setlocal
for /f %%i in (' "2>nul wmic cdrom get name /value" ') do 1>nul set "%%i"
if defined name ( start "" "%programfiles%\prog\prog.exe" /key ) else (echo cdrom not exists)