Set buses = GetObject("winmgmts:").InstancesOf("Win32_Bus")
For Each bus In buses
  If(bus.BusType = 5) Then
    strmsg = strmsg + bus.DeviceID & vbcrlf
    Set devices = GetObject("winmgmts:").ExecQuery ("Associators of {Win32_Bus.DeviceID=""" & bus.DeviceID & """} WHERE AssocClass = Win32_DeviceBus")
    For Each device In devices
      strmsg = strmsg + "  " & device.name & vbcrlf
    Next
  End If
Next 
WScript.Echo strmsg