獲取DVD光盤列表及其標籤名稱

Question

我正在尋找一種方法來獲取DVD或CD-Roms列表在PC上以及它們的標籤名稱（如果插入了任何DVD或CD）使用VB-腳本。

目前有一些腳本返回所有的設備的信件，但我只需要DVD和CD ROMS。

Answer 1

Drive類的DriveType屬性報告驅動器的類型。下面是值這個枚舉：

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