#import IEnumGUID создает исключение

# import "c:\\Windows\system32\opcenum.exe"\
    rename_namespace ("OPCENUM")
 
#include <iostream>
 
using namespace OPCENUM;
 
int GetOPCServerList();
 
int GetOPCServerList(){
    CoInitialize(NULL);
 
    CLSID clsid, clsidcat;
    HRESULT hRes;
 
    hRes=CLSIDFromProgID(L"OPC.ServerList",&clsid);
    if (hRes!=S_OK){
        return -1;
    }
    hRes=CLSIDFromString(L"{63D5F432-CFE4-11D1-B2C8-0060083BA1FB}",&clsidcat);
    if (hRes!=S_OK){
        return -1;
    }
 
    IID IID_IOPCServerList2=__uuidof(IOPCServerList2);
 
    IOPCServerList2* pIOPCServerList2;
    hRes=CoCreateInstance(clsid,NULL,CLSCTX_LOCAL_SERVER,IID_IOPCServerList2,(void**)&pIOPCServerList2);
    if (hRes!=S_OK){
        return -1;
    }
 
    IOPCEnumGUID* pIOPCEnumGuid;
    hRes=pIOPCServerList2->EnumClassesOfCategories(1,&clsidcat,0,NULL,&pIOPCEnumGuid);
    if (hRes!=S_OK){
        return -1;
    }
 
    GUID guid;
    wchar_t* pszProgID = new wchar_t[50];
    wchar_t* pszUserType = new wchar_t[50];
    wchar_t* pszVerIndProgID = new wchar_t[50];
    ULONG iRetSvr;
    CHAR str[50];
 
    pIOPCEnumGuid->Next(1,&guid,&iRetSvr);
    while(iRetSvr!=0)
    {
        pIOPCServerList2->GetClassDetails(&guid,&pszProgID,&pszUserType,&pszVerIndProgID);
        WideCharToMultiByte(0,0,pszProgID,50,str,50,NULL,FALSE);
        std::cout<<str<<std::endl;
        pIOPCEnumGuid->Next(1,&guid,&iRetSvr);
    }
}
 
int main(){
    int Res = GetOPCServerList();
 
    return 0;
}

#include "opcda.h"

void find_opc_servers_ex(const std::string &machine_name)
{
    _opc_server_prog_id.clear();
    _opc_server_clsid.clear();
////////////////////////////////////////////////////////////////////////////////
    std::wstring w_machine_name = str_to_wstr(machine_name);
////////////////////////////////////////////////////////////////////////////////
    COAUTHINFO pAuthInfo[1] =
    {
        {
            RPC_C_AUTHN_WINNT, //DWORD dwAuthnSvc
            RPC_C_AUTHZ_NONE, //DWORD dwAuthzSvc
            0, //LPWSTR pwszServerPrincName
            RPC_C_AUTHN_LEVEL_PKT, //DWORD dwAuthnLevel
            RPC_C_IMP_LEVEL_IMPERSONATE, //DWORD dwImpersonationLevel
            0, //COAUTHIDENTITY *pAuthIdentityData
            EOAC_NONE //DWORD dwCapabilities
        }
    };
 
    COSERVERINFO pServerInfo[1] =
    {
        {
            0, //DWORD dwReserved1
            (LPWSTR)w_machine_name.c_str(), //LPWSTR pwszName
            pAuthInfo, //COAUTHINFO *pAuthInfo
            0 //DWORD dwReserved2
        }
    };
 
    MULTI_QI pResults[1];
////////////////////////////////////////////////////////////////////////////////
    pResults[0].pIID = &IID_IOPCServerList2;
    pResults[0].pItf = 0;
    pResults[0].hr = 0;
 
    if
    (
        FAILED
        (
            CoCreateInstanceEx
            (
                CLSID_OpcServerList, //IN REFCLSID Clsid
                0, //IN IUnknown *punkOuter
                CLSCTX_ALL, //IN DWORD dwClsCtx
                pServerInfo, //IN COSERVERINFO *pServerInfo
                1, //IN DWORD dwCount
                pResults //IN OUT MULTI_QI *pResults
            )
        ) ||
        pResults[0].hr != S_OK
    )
        return;
 
    CComPtr<IOPCServerList2> pIOPCServerList2 =
    reinterpret_cast<IOPCServerList2 *>(pResults[0].pItf);
////////////////////////////////////////////////////////////////////////////////
    CATID IDs[1];
    IDs[0] = CATID_OPCDAServer20;
 
    CComPtr<IOPCEnumGUID> pIOPCEnumGUID;
    if
    (
        pIOPCServerList2->EnumClassesOfCategories
        (
            1, IDs, 0, 0, &pIOPCEnumGUID
        ) != S_OK
    )
        return;
 
    CLSID clsid;
    ULONG fetched;
    while (pIOPCEnumGUID->Next(1, &clsid, &fetched) == S_OK && fetched == 1)
    {
        _opc_server_clsid.push_back(guid_to_str(clsid));
        LPOLESTR prog_id = 0;
        LPOLESTR user_type = 0;
        LPOLESTR ver_ind_prog_id = 0;
        if
        (
            pIOPCServerList2->GetClassDetails
            (
                clsid,
                &prog_id,
                &user_type,
                &ver_ind_prog_id
            ) != S_OK
        )
        {
            _opc_server_prog_id.push_back();
            continue;
        }
        _opc_server_prog_id.push_back(wstr_to_str(prog_id));
        CoTaskMemFree(prog_id);
        CoTaskMemFree(user_type);
        CoTaskMemFree(ver_ind_prog_id);
    }
}