Получение списка DVD-дисков CD-ROM и их названий ярлыков

Question

Я ищу способ получить список DVD или CD-Roms На ПК, а также их имена ярлыков (если вставлен какой-либо DVD-диск или компакт-диск), используя VB- Сценарий.

В настоящее время есть несколько сценариев, которые возвращают все письма устройств, но мне нужны только DVD и CD ROM.

Answer 1

Свойство DriveType класса Drive сообщает тип привода. Ниже приведены значения для этого перечисления:

Const DriveTypeUnknown = 0 
Const DriveTypeRemovable = 1 
Const DriveTypeFixed  = 2 
Const DriveTypeNetwork = 3 
Const DriveTypeOptical = 4 
Const DriveTypeRAMDisk = 5 

Просто итерирует Drives коллекции FileSystemObject класса. Обратите внимание, что между CD и DVD-дисками нет различий (а также чтения/записи).

Set objFSO = CreateObject("Scripting.FileSystemObject") 

For Each objDrive In objFSO.Drives 
    If objDrive.DriveType = DriveTypeOptical Then 

     ' Attempt to get the volume name. It will only be available if a disc is loaded. 
     If objDrive.IsReady Then 
      strLabel = objDrive.VolumeName 
     Else 
      strLabel = "(no disc)" 
     End If 

     WScript.Echo "Optical Drive = " & objDrive.DriveLetter & ", Label = " & strLabel 

    End If 
Next