Я пытаюсь создать инструмент развертывания, который будет устанавливать программное обеспечение на основе оборудования, найденного в системе. Мне бы хотелось, чтобы инструмент мог определить, является ли оптический привод записывающим устройством (чтобы определить, должно ли быть установлено программное обеспечение для записи) или может читать DVD-диски (чтобы определить, должен ли быть установлен проигрыватель). Я попытался использовать следующий код
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
Wscript.Echo "MediaType: " & objItem.MediaType
Next
но он всегда отвечает CD-ROM