🚀 go-pugleaf

Hello,

The code (partial snippet) monitors a wmi event. Looking for
changes to Win32_NetworkAdapter class. The code successfully
detects changes to the the NetworkAdapter, however I cannot access any of the Win32_NetworkAdapter properties. When I call
GetObjectText() method of IWbemClassObject object I see the properties I wish to access under 'TargetInstance'. Is there any way (short of text parsing) to access 'TargetInstance' as an object.




HRESULT hr;

TComInterface< IWbemLocator > locator;
hr = CoCreateInstance( CLSID_WbemLocator, NULL,
                       CLSCTX_INPROC_SERVER,
		       IID_IWbemLocator, reinterpret_cast< void** >( &locator ) );
	
if ( FAILED( hr ) )
{
   ShowMessage("Instantiation of IWbemLocator failed");
   return;
}

// connect to local service with current credentials
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->ExecNotificationQuery(
	WideString("WQL"),
	WideString("select * from __InstanceModificationEvent WITHIN 10 WHERE TargetInstance ISA 'Win32_NetworkAdapter' And TargetInstance.Description = \"Intel(R) PRO/1000 MT Network Connection\""),
	WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
	NULL, &pEnumerator);

  if (hr == WBEM_E_NOT_EVENT_CLASS)
  {
     ShowMessage("Not Valid Event class");
     return;
  }

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

  IWbemClassObject *pclsObj;
  ULONG uReturn = 0;

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

   if(hr == WBEM_S_TIMEDOUT)
   {
     Application->ProcessMessages();
     continue;
   }

   if(0 == uReturn)
     break;

   WideString   tmp;
   VARIANT vtProp;
   pclsObj->GetObjectText(0,&tmp);

   ShowMessage(tmp);
 }
}