[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