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\...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.