Devices.Nodes.Clear
Devices.Nodes.Add ,  0 , "Devices", "Звуковые устройства"
Devices.Nodes.Add ,  0 , "PnP", "PnP устройства"
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
AudVol =  1 
For Each objSound In objService.ExecQuery("SELECT * FROM Win32_SoundDevice")
    DoEvents
    nodeDo = Devices.Nodes.Add("Devices",  4 , "SoundDev" + Trim(Str(AudVol)), objSound.Caption)
    Devices.Nodes.Item("Devices").Expanded = True
    nodeDo = Devices.Nodes.Add("SoundDev" + Trim(Str(AudVol)),  4 , "SoundInfo" + Trim(Str(AudVol)), "Наименование: " & objSound.Description)
    nodeDo = Devices.Nodes.Add("SoundDev" + Trim(Str(AudVol)),  4 , "SoundAuthor" + Trim(Str(AudVol)), "Производитель: " & objSound.Manufacturer)
    nodeDo = Devices.Nodes.Add("SoundDev" + Trim(Str(AudVol)),  4 , "SoundIdent" + Trim(Str(AudVol)), "Идентификатор: " & objSound.DeviceID)
    AudVol = AudVol +  1 
Next
PnPVol =  1 
For Each objSound In objService.ExecQuery("SELECT * FROM Win32_DeviceMemoryAddress")
    DoEvents
    nodeDo = Devices.Nodes.Add("PnP",  4 , "PnPDev" + Trim(Str(PnPVol)), objSound.Caption)
    Devices.Nodes.Item("PnP").Expanded = True
    nodeDo = Devices.Nodes.Add("PnPDev" + Trim(Str(PnPVol)),  4 , "PnPInfo" + Trim(Str(PnPVol)), "Описание: " & objSound.Description)
    nodeDo = Devices.Nodes.Add("PnPDev" + Trim(Str(PnPVol)),  4 , "PnPAddressBegin" + Trim(Str(PnPVol)), "Начальный адрес: " & objSound.StartingAddress)
    nodeDo = Devices.Nodes.Add("PnPDev" + Trim(Str(PnPVol)),  4 , "PnPAddressEnd" + Trim(Str(PnPVol)), "Конечный адрес: " & objSound.EndingAddress)
    PnPVol = PnPVol +  1 
Next