Как определить букву локального CDROM-диска?

Комментарии к коду:

• Код, определяющий букву диска, вынесен в функцию GetCdromDriveLetter.
• Если на компьютере установлены несколько CDROM-дисков, то определяется первый из них.
• Удаленные (сетевые) CDROM-диски не определяются.

Листинг: cdrom.vbs

Option Explicit

Dim DriveLetter
DriveLetter = GetCdromDriveLetter

If Len(DriveLetter) > 0 Then
	MsgBox "CDROM-диск находится на букве '" & DriveLetter & "'."
Else
	MsgBox "CDROM-диск не обнаружен."
End If

Function GetCdromDriveLetter()
	GetCdromDriveLetter = ""

	Dim FSO
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	Dim Drive
	For Each Drive In FSO.Drives
		If Drive.DriveType = 4 Then
			GetCdromDriveLetter = Drive.DriveLetter
			Exit For
		End If
	Next
	
	Set FSO = Nothing
End Function