Type Mismatch 80020005

[logictom]

I get an error whenever running the included listComPorts.exe whether I have any com ports or not.
Running Win 10 64bit.

Program still shows connected ports after acknowledging the error.

[halsampson]

Replicated same result whether admin or not.

Error in:
dhGetValue(L"%o", &colDevices, wmiSvc,
L".ExecQuery(%S)",
L"Select * from Win32_PnPEntity");