🚀 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 

>        TInitOle ole; // constructor calls CoInitialize/Ex()
Thank you for that piece of advice!!

I have modified a portion of the code so that it correctly
detects the connections status of the specified nic. All that is left if to modify this code to allow me use WMI to monitor events.

TComInterface< IWbemServices > service;
hr = locator->ConnectServer( WideString("root\\cimv2"), 
                             NULL, NULL, NULL,		  		             WBEM_FLAG_CONNECT_USE_MAX_WAIT,
			     NULL, NULL, &service );
if ( SUCCEEDED( hr ) )
{
   IEnumWbemClassObject* pEnumerator = NULL;
   hr = service->ExecQuery( WideString("WQL"),
						WideString("select * from Win32_NetworkAdapter Where Description = \"Intel(R) PRO/1000 MT Network Connection\" And NetConnectionStatus = 0"),							WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
		NULL,
                &pEnumerator);

if (FAILED(hr))
{
   ShowMessage("Query Failed");
   return;
}

IWbemClassObject *pclsObj;
ULONG uReturn = 0;

while (pEnumerator)
{
   HRESULT hr = pEnumerator->Next(WBEM_INFINITE,
                                  1,
                                  &pclsObj,
                                  &uReturn);

   if(0 == uReturn)
   {
      break;
   }

   VARIANT vtProp; 
   // Get the value of the Name property
   hr = pclsObj->Get(WideString("NetConnectionStatus"),
                     0, &vtProp, 0, 0);

   //add code to check connection
   VariantClear(&vtProp);
}