HRESULT hr = CoInitialize(NULL);
if (FAILED(hr))
    return -1;
IDSPortPtr p;
hr = p.CreateInstance(CLSID_SPort);
if (SUCCEEDED(hr))
    p->CreatePort(L"COM1");