I'm searching for a VB6 code which could detect all installed webcams and microphones but I have found nothing. So I'm asking for a help maybe someone already done that before and could share the source code or at least show where to find it? Or maybe there is any third party components for this purpose which could be used in VB6 app?

Thank you in advance for any help you can provide!