Всем привет!
Вообще идет аудит техники по безопасности дали задание получить все устройства записи информации... Несколько подразделений. Написал скрипт по CD:

On Error Resume Next

Dim DomainName 'Имя домена
DomainName = "MyDomen"

Dim ADSI
Set ADSI = GetObject("WinNT://" & DomainName)
ADSI.Filter = Array("computer")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Files_W = objFSO.OpenTextFile("D:\temp\EnumCD.txt", 2, True)

For Each Comp In ADSI
Set objWMI = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")
Set colItems = objWMI.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
Files_W.WriteLine "******************************************************************************"
Files_W.WriteLine "Comp. name:" & Trim(Comp.Name)
Files_W.WriteLine "Name: " & objItem.Name
strWrite = "Supports Writing: Only read"
For Each eCapabilities In objItem.Capabilities
If eCapabilities = 4 then
strWrite = "Supports Writing: Write/Read"
End If
Next
Files_W.WriteLine strWrite
Files_W.WriteLine "******************************************************************************"
Next
Next

Но не все устройства согласно характеристике в MSDN Capabilities имеют свойство Supports Writing. Хотя на самом деле являются пишущими.
Вот блин вопрос ПОЧЕМУ???
Или наверное КАК с этим бороться?