🚀 go-pugleaf

"JohnG" <whatis@email.com> wrote in message 
news:478b8203$1@newsgroups.borland.com...

> hr = locator->ConnectServer( L"root\\cimv2", NULL, NULL, NULL,
>            WBEM_FLAG_CONNECT_USE_MAX_WAIT,
>      NULL, NULL, &service );

You must use a true BSTR, not a raw wchar_t*, when passing strings to COM 
objects.  You can use the VCL's WideString class to help you with that, ie:

    hr = locator->ConnectServer(WideString("root\\cimv2"), ...);

>   hr = service->ExecQuery( L"WQL",
>                            L"select * from MSNdis_MediaConnectStatus where 
> "
>                             "InstanceName =""\Intel(R) PRO/1000 MT Network 
> Connection\"" ,
>                             WBEM_FLAG_FORWARD_ONLY | 
> WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &enumerator );

Likewise:

    hr = service->ExecQuery(WideString("WQL"), WideString("select * from 
MSNdis_MediaConnectStatus where InstanceName = "\Intel(R) PRO/1000 MT 
Network Connection\""), ...);

> CoUninitialize();

All of your error handling is exiting your function without calling 
CoUninitialize().  You need to call CoUninitialize() for every successful 
call to CoInitialize/Ex(), regardless of how your code exits, ie:

    {
        HRESULT hr = ::CoInitialize(NULL);
        if( FAILED(hr) )
        {
            ShowMessage("COM initialization failed");
            return;
        }

        // ...

        if( FAILED(hr) )
        {
            //...
            CoUninitialize(); // <-- add this each time
            return;
        }

    }

If you do not want to call CoUninitialize() manually before each 'return', 
then I suggest you change you use the TInitOle class instead of calling 
CoInitialize/Ex() manually, ie:

    {
        TInitOle ole; // constructor calls CoInitialize/Ex()

        if( !ole ) // check the result
        {
            ShowMessage("COM initialization failed");
            return;
        }

        // the rest of your code here ...

        // TInitOle destructor will call CoUnitialize() automatically when 
the object goes out of scope...
    }


Gambit