This is really a really cool snippet. It makes it very simple to run Windows 10 PowerShell scripts. It doesn't require special permissions. Public Sub PowerShellScript(s As String) As ResumableSub s = s.Replace(CRLF, ";").Replace("""", "'") Dim shl As Shell...
Status Class FriendlyName InstanceId
------ ----- ------------ ----------
OK Bluetooth Realtek Bluetooth 4.2 Adapter USB\VID_...
OK Camera HP Wide Vision HD Camera USB\VID_...
OK USB ������ᠫ�� USB-���業���� USB\VID_...
OK HIDClass USB-���ன�⢮ ����� USB\VID_...
OK HIDClass USB-���ன�⢮ ����� USB\VID_...
OK USB ���⠢��� USB ���ன�⢮ USB\VID_...
OK USB ����� USB-���業���� (USB�3.0) USB\ROOT...
OK USB ���⠢��� USB ���ன�⢮ USB\VID_...
OK USB ����� USB-���業���� (USB�3.0) USB\ROOT...
Result (here there are only audio devices, indeed "media"):
B4X:
Status Class FriendlyName InstanceId
------ ----- ------------ ----------
OK MEDIA Galaxy A7 (2017) A2DP SNK BTHENUM\...
OK MEDIA Redmi1 A2DP SNK BTHENUM\...
OK MEDIA Nokia 3.1 Hands-Free HF Audio BTHHFENU...
OK MEDIA Realtek(R) Audio HDAUDIO\...
OK MEDIA AMD High Definition Audio Device HDAUDIO\...
OK MEDIA Redmi1 Hands-Free HF Audio BTHHFENU...
OK MEDIA Galaxy A7 (2017) Hands-Free HF Audio BTHHFENU...
OK MEDIA Nokia 3.1 A2DP SNK BTHENUM\...