WMI на 64 приложения

TGlav_Form *Glav_Form;
//---------------------------------------------------------------------------
HRESULT hres;
IWbemLocator *pLoc = NULL;
IWbemServices *pSvc = NULL;
IEnumWbemClassObject* pEnumerator = NULL;
IWbemClassObject *pclsObj;
ULONG uReturn = 0;
VARIANT vtProp;
HRESULT hr;

char *AllWmiProgram[] =
{
"Name",
//"AssignmentType",
"Caption",
"Description",
"IdentifyingNumber",
"InstallDate",
//"InstallDate2",
"InstallLocation",
//"InstallState",
"HelpLink",
"HelpTelephone",
"InstallSource",
"Language",
"LocalPackage",
"PackageCache",
"PackageCode",
"PackageName",
"ProductID",
"RegOwner",
"RegCompany",
"SKUNumber",
"Transforms",
"URLInfoAbout",
"URLUpdateInfo",
"Vendor",
//"WordCount",
"Version"
};

__fastcall TGlav_Form::TGlav_Form(TComponent* Owner)
: TForm(Owner)
{
CoInitialize(NULL);
/*hres = CoInitializeEx(0, COINIT_MULTITHREADED);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в инициализации библиотеки COM...",
L"Ошибка в инициализации библиотеки COM...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
return;
}*/
//-----------------------------------------------------------------------
hres = CoInitializeSecurity(
NULL,
-1, // COM authentication
NULL, // Authentication services
NULL, // Reserved
RPC_C_AUTHN_LEVEL_PKT, // Default authentication
RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation
NULL, // Authentication info
EOAC_NONE, // Additional capabilities
0 // Reserved
);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в инициализации защиты...",
L"Ошибка в инициализации защиты...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
CoUninitialize();
Application->Terminate();
}
}

void __fastcall TGlav_Form::InitializationWMI(TStrings *lpList, String wsClass, int typeWMI)
{
hres = CoCreateInstance(
CLSID_WbemAdministrativeLocator,
NULL,
CLSCTX_INPROC_SERVER,
IID_IWbemLocator, (LPVOID *)&pLoc);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в создании IWbemLocator объекта...",
L"Ошибка в создании IWbemLocator объекта...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
CoUninitialize();
return;
}
//-----------------------------------------------------------------------
String wsNamespace = L"root\\cimv2";
hres = pLoc->ConnectServer(
wsNamespace.t_str(), // Object path of WMI namespace
NULL, // User name. NULL = current user
NULL, // User password. NULL = current
0, // Locale. NULL indicates current
NULL, // Security flags.
0, // Authority (for example, Kerberos)
0, // Context object
&pSvc // pointer to IWbemServices proxy
);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в соединении с сервером ROOT\\CIMV2...",
L"Ошибка в соединении с сервером ROOT\\CIMV2...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
pLoc->Release();
CoUninitialize();
return;
}
//-----------------------------------------------------------------------
hres = CoSetProxyBlanket(
pSvc, // Indicates the proxy to set
RPC_C_AUTHN_WINNT, // RPC_C_AUTHN_xxx
RPC_C_AUTHZ_NONE, // RPC_C_AUTHZ_xxx
NULL, // Server principal name
RPC_C_AUTHN_LEVEL_CALL, // RPC_C_AUTHN_LEVEL_xxx
RPC_C_IMP_LEVEL_IMPERSONATE, // RPC_C_IMP_LEVEL_xxx
NULL, // client identity
EOAC_NONE // proxy capabilities
);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в наборе прокси...",
L"Ошибка в наборе прокси...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
pSvc->Release();
pLoc->Release();
CoUninitialize();
return;
}
//-----------------------------------------------------------------------
String wsWQL = L"WQL";
String wsQuery = String( L"Select * from " + wsClass);
hres = pSvc->ExecQuery(
wsWQL.t_str(),
wsQuery.t_str(),
WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY,
NULL,
&pEnumerator);
if (hres != S_OK) {
Application->MessageBoxW(L"Ошибка в WQL-запросе...",
L"Ошибка в WQL-запросе...",
MB_OK + MB_ICONERROR + MB_APPLMODAL + MB_TOPMOST);
pSvc->Release();
pLoc->Release();
CoUninitialize();
return;
}
//-----------------------------------------------------------------------
while (pEnumerator) {
HRESULT hr = pEnumerator->Next(
WBEM_INFINITE,
1,
&pclsObj,
&uReturn);

if (0 == uReturn) break;

//Чтение и запись параметров

if (typeWMI == 0) {

for (int i = 0; AllWmiOperationSystem[i]; i++) {
Application->ProcessMessages();
try {
String Strochka = AllWmiOperationSystem[i];
hr = pclsObj->Get(Strochka.t_str(), 0, &vtProp, 0, 0);
if (hr != S_OK) break;
lpList->Add(String(AllWmiOperationSystemCaption[i]) + vtProp.bstrVal);
} catch (...) {
break;
}
}

}
if (typeWMI == 1) {
lpList->Add("");
for (int i = 0; AllWmiProgram[i]; i++) {
Application->ProcessMessages();
try {
String Strochka = AllWmiProgram[i];
//ShowMessage(Strochka);
hr = pclsObj->Get(Strochka.t_str(), 0, &vtProp, 0, 0);
if (hr != S_OK) break;
lpList->Add(String(AllWmiProgramCaption[i]) + vtProp.bstrVal);
} catch (...) {
break;
}
}

}
VariantClear(&vtProp);
pclsObj->Release();
}
//-----------------------------------------------------------------------

pSvc->Release();
pLoc->Release();
pEnumerator->Release();
if (!pclsObj) pclsObj->Release();
CoUninitialize();
return;
}
//---------------------------------------------------------------------------