🚀 go-pugleaf

Dear "tinyabs",

Thank you very much for the source code.
Am I supposed to install some special library etc to my WinXP inorder to 
have the  "Wbemuuid.lib" ?

Once again, THANK YOU!.

Luke

>
> #include <vcl.h>
> #include <ole2.h>
> #include <iostream.h>
> #include <conio.h>
> #include <Wbemidl.h>
> #pragma hdrstop
>
> //---------------------------------------------------------------------------
>
> #pragma link "Wbemuuid.lib"
>
> #pragma argsused
>
> void GetWmiInfo(TStrings *lpList, WideString wsClass)
> {
>  IWbemLocator *pWbemLocator = NULL;
>  if(CoCreateInstance(CLSID_WbemAdministrativeLocator, NULL, 
> CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, IID_IUnknown, 
> (void**)&pWbemLocator) == S_OK)
>   {
>     IWbemServices *pWbemServices = NULL;
>     WideString wsNamespace = (L"root\\cimv2");
>     if(pWbemLocator->ConnectServer(wsNamespace, NULL, NULL, NULL, 0, NULL, 
> NULL, &pWbemServices) == S_OK)
>      {
>        IEnumWbemClassObject *pEnumClassObject = NULL;
>        WideString wsWQL=L"WQL", wsQuery=WideString(L"Select * from 
> ")+wsClass;
>        if(pWbemServices->ExecQuery(wsWQL, wsQuery, 
> WBEM_FLAG_RETURN_IMMEDIATELY,NULL, &pEnumClassObject) == S_OK)
>         {
>           IWbemClassObject *pClassObject = NULL;
>           ULONG uCount = 1, uReturned;
>           if(pEnumClassObject->Reset() == S_OK)
>            {
>              int iEnumIdx = 0;
>              while(pEnumClassObject->Next(WBEM_INFINITE, uCount, 
> &pClassObject, &uReturned) == S_OK)
>               {
>                 lpList->Add("----------------  
>  ["+IntToStr(iEnumIdx)+"] -----------------");
>
>                 SAFEARRAY *pvNames = NULL;
>                 if(pClassObject->GetNames(NULL, WBEM_FLAG_ALWAYS | 
> WBEM_MASK_CONDITION_ORIGIN, NULL, &pvNames) == S_OK)
>                  {
>                    long vbl, vbu;
>                    SafeArrayGetLBound(pvNames, 1, &vbl);
>                    SafeArrayGetUBound(pvNames, 1, &vbu);
>                    for(long idx=vbl; idx<=vbu; idx++)
>                     {
>                       long aidx = idx;
>                       wchar_t *wsName = 0;
>                       VARIANT vValue;
>                       VariantInit(&vValue);
>                       SafeArrayGetElement(pvNames, &aidx, &wsName);
>
>                       BSTR bs = SysAllocString(wsName);
>                       HRESULT hRes = pClassObject->Get(bs, 0, &vValue, 
> NULL, 0);
>                       SysFreeString(bs);
>
>                       if(hRes == S_OK)
>                        {
>                          AnsiString s;
>                          Variant v = *(Variant*)&vValue;
>                          if(v.IsArray())
>                           {
>                             for(int i=v.ArrayLowBound(); 
> i<=v.ArrayHighBound(); i++)
>                              {
>                                Variant a = v.GetElement(i);
>                                if(!s.IsEmpty())
>                                  s+=", ";
>                                s+=VarToStr(a);
>                              }
>                           }
>                          else
>                           {
>                             s = VarToStr(v);
>                           }
>                          lpList->Add(AnsiString(wsName)+"="+s);
>                        }
>
>                       VariantClear(&vValue);
>                       SysFreeString(wsName);
>                     }
>                  }
>                 if(pvNames)SafeArrayDestroy(pvNames);
>                 iEnumIdx++;
>               }
>            }
>           if(pClassObject)pClassObject->Release();
>         }
>        if(pEnumClassObject)pEnumClassObject->Release();
>      }
>     if(pWbemServices)pWbemServices->Release();
>   }
>  if(pWbemLocator)pWbemLocator->Release();
> }
>
> int main(int argc, char* argv[])
> {
>   CoInitializeEx(0, COINIT_MULTITHREADED);
>   CoInitializeSecurity(NULL, -1, NULL, NULL,
>        RPC_C_AUTHN_LEVEL_CONNECT,
>        RPC_C_IMP_LEVEL_IMPERSONATE,
>        NULL, EOAC_NONE, 0
>        );
>   TStringList *list = new TStringList();
>   GetWmiInfo(list, "Win32_Processor");
>
>   for (int i = 0; i < list->Count; i++)
>   {
>      cout << list->Strings[i].c_str() << endl;
>   }
>
>   CoUninitialize();
>   getch();
>   return 0;
> }
>
>