С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++/CLI Windows Forms
Форум программистов и сисадминов Киберфорум > Форум программистов > .NET > C++/CLI > C++/CLI Windows Forms
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
1 / 1 / 1
Регистрация: 29.09.2011
Сообщений: 57
1

Не работает WMI - ссылка на объект не указывает на экземпляр объекта

21.09.2012, 11:56. Показов 1669. Ответов 2
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Вот код,взят из MSDN с небольшими "доработками":
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

#pragma endregion
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
                 HRESULT hres;
    // Step 1: --------------------------------------------------
    // Initialize COM. ------------------------------------------
    hres =  CoInitializeEx(0, COINIT_APARTMENTTHREADED);
    if (FAILED(hres)) MessageBox::Show("Step1 Error"); else MessageBox::Show("Step1 Passed");
    // Step 2: --------------------------------------------------
    // Set general COM security levels --------------------------
    // Note: If you are using Windows 2000, you need to specify -
    // the default authentication credentials for a user by using
    // a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
    // parameter of CoInitializeSecurity ------------------------
    hres =  CoInitializeSecurity(
        NULL, 
        -1,                          // COM authentication
        NULL,                        // Authentication services
        NULL,                        // Reserved
        RPC_C_AUTHN_LEVEL_DEFAULT,   // Default authentication 
        RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation  
        NULL,                        // Authentication info
        EOAC_NONE,                   // Additional capabilities 
        NULL                         // Reserved
        );
    if (FAILED(hres)) MessageBox::Show("Step2 Error"); else MessageBox::Show("Step2 Passed");
    // Step 3: ---------------------------------------------------
    // Obtain the initial locator to WMI -------------------------
    IWbemLocator *pLoc = NULL;
       hres = CoCreateInstance(
        CLSID_WbemLocator,             
        0, 
        CLSCTX_INPROC_SERVER, 
        IID_IWbemLocator, (LPVOID *) &pLoc);
       if (FAILED(hres)) MessageBox::Show("Step3 Error"); else MessageBox::Show("Step3 Passed");
       // Step 4: -----------------------------------------------------
    // Connect to WMI through the IWbemLocator::ConnectServer method
 
    IWbemServices *pSvc = NULL;
    
    // Connect to the root\cimv2 namespace with
    // the current user and obtain pointer pSvc
    // to make IWbemServices calls.
    hres = pLoc->ConnectServer(
         BSTR(L"ROOT\\CIMV2"), // 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 (e.g. Kerberos)
         0,                       // Context object 
         &pSvc                    // pointer to IWbemServices proxy
         );
    if (FAILED(hres)) MessageBox::Show("Step4 Error"); else MessageBox::Show("Step4 Passed");
    // Step 5: --------------------------------------------------
    // Set security levels on the proxy -------------------------
 
    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 (FAILED(hres)) MessageBox::Show("Step5 Error"); else MessageBox::Show("Step5 Passed");
        // Step 6: --------------------------------------------------
    // Use the IWbemServices pointer to make requests of WMI ----
 
    // For example, get the name of the operating system
    IEnumWbemClassObject* pEnumerator = NULL;
    hres = pSvc->ExecQuery(
        BSTR("WQL"), 
        BSTR("SELECT * FROM Win32_OperatingSystem"),
        WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY, 
        NULL,
        &pEnumerator);
    if (FAILED(hres)) MessageBox::Show("Step6 Error"); else MessageBox::Show("Step6 Passed");
    // Step 7: -------------------------------------------------
    // Get the data from the query in step 6 -------------------
     IWbemClassObject *pclsObj;
    ULONG uReturn = 0;
    while (pEnumerator)
    {
        HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1, 
            &pclsObj, &uReturn);
        if (FAILED(hres)) MessageBox::Show("Step7 Error"); else MessageBox::Show("Step7 Passed");
 
        if(0 == uReturn)
        {
            break;
        }
 
        VARIANT vtProp;
 
        // Get the value of the Name property
        hr = pclsObj->Get(BSTR(L"Name"), 0, &vtProp, 0, 0);
        label4->Text=System::Convert::ToString(vtProp.uintVal);
        //VariantClear(&vtProp);
    }
    // Cleanup
    // ========
    
    pSvc->Release();
    pLoc->Release();
  pEnumerator->Release();
    pclsObj->Release();
    CoUninitialize();
    // Следующая секция кода
}
Программа компилируется,линкуется,запускается - когда срабатывает кнопка то вылазит исключение.
Аналогично пробовал для кода WMI чтобы получить Caption диска - та же ошибка
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 21.09.2012, 11:56
Ответы с готовыми решениями:

Ссылка на объект не указывает на экземпляр объекта
В проге реализуется распарсивание строки и последующая обратная польская запись. При компиляции...

Ссылка на объект не указывает на экземпляр объекта
Здравствуйте. Пытаюсь взять строку из textBox1 и вывести на экран через messageBox. При выполнении...

Ссылка на объект не указывает на экземпляр объекта
Всем доброе времени суток! Помогите пожалуйста с этой ошибкой: "Ссылка на объект не указывает на...

Ссылка на объект не указывает на экземпляр объекта
Здравствуйте. Помогите пожалуйста с ошибкой, не имею понятия что с ней делать. Программу делаю в...

2
Эксперт С++
2924 / 1274 / 114
Регистрация: 27.05.2008
Сообщений: 3,465
21.09.2012, 12:02 2
Вот почитай статьи: http://www.codeproject.com/Art... rt-3-Hardw. А на C++/CLI переделай уж сам.
0
1 / 1 / 1
Регистрация: 29.09.2011
Сообщений: 57
21.09.2012, 18:58  [ТС] 3
У меня конкретно 1 строчка не работает:
hr = pclsObj->Get(L"Name", 0, &vtProp, 0, 0);
pclsObj не определен,из-за этого вылазит исключение. Все делал как в MSDN только пришлось:
1. переключить компилятор из CLR / pure в обычный CLR (не приклеивался хедер comdef.h)
2. заменить bstr_t на BSTR, чтобы линкер не вываливался с ошибкой debug.cpp

Добавлено через 5 часов 15 минут
Немного допилил код напильником,исправил ошибки:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111

#pragma endregion
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
                 HRESULT hres;
    BSTR param1 = SysAllocString(L"WQL");
    BSTR param2 = SysAllocString(L"SELECT * FROM Win32_OperatingSystem");
    BSTR param3 = SysAllocString(L"ROOT\\default");
    BSTR param4 = SysAllocString(L"Name");
    // Step 1: --------------------------------------------------
    // Initialize COM. ------------------------------------------
    hres =  CoInitializeEx(0, COINIT_APARTMENTTHREADED);
    if (FAILED(hres)) MessageBox::Show("Step1 Error"); else MessageBox::Show("Step1 Passed");
    // Step 2: --------------------------------------------------
    // Set general COM security levels --------------------------
    // Note: If you are using Windows 2000, you need to specify -
    // the default authentication credentials for a user by using
    // a SOLE_AUTHENTICATION_LIST structure in the pAuthList ----
    // parameter of CoInitializeSecurity ------------------------
    hres =  CoInitializeSecurity(
        NULL, 
        -1,                          // COM authentication
        NULL,                        // Authentication services
        NULL,                        // Reserved
        RPC_C_AUTHN_LEVEL_DEFAULT,   // Default authentication 
        RPC_C_IMP_LEVEL_IMPERSONATE, // Default Impersonation  
        NULL,                        // Authentication info
        EOAC_NONE,                   // Additional capabilities 
        NULL                         // Reserved
        );
    if (FAILED(hres)) MessageBox::Show("Step2 Error"); else MessageBox::Show("Step2 Passed");
    // Step 3: ---------------------------------------------------
    // Obtain the initial locator to WMI -------------------------
    IWbemLocator *pLoc = NULL;
       hres = CoCreateInstance(
        CLSID_WbemLocator,             
        0, 
        CLSCTX_INPROC_SERVER, 
        IID_IWbemLocator, (LPVOID *) &pLoc);
       if (FAILED(hres)) MessageBox::Show("Step3 Error"); else MessageBox::Show("Step3 Passed");
       // Step 4: -----------------------------------------------------
    // Connect to WMI through the IWbemLocator::ConnectServer method
 
    IWbemServices *pSvc = NULL;
    
    // Connect to the root\cimv2 namespace with
    // the current user and obtain pointer pSvc
    // to make IWbemServices calls.
    hres = pLoc->ConnectServer(
         param3, // 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 (e.g. Kerberos)
         0,                       // Context object 
         &pSvc                    // pointer to IWbemServices proxy
         );
    if (FAILED(hres)) MessageBox::Show("Step4 Error"); else MessageBox::Show("Step4 Passed");
    // Step 5: --------------------------------------------------
    // Set security levels on the proxy -------------------------
 
    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 (FAILED(hres)) MessageBox::Show("Step5 Error"); else MessageBox::Show("Step5 Passed");
        // Step 6: --------------------------------------------------
    // Use the IWbemServices pointer to make requests of WMI ----
 
    // For example, get the name of the operating system
    IEnumWbemClassObject* pEnumerator = NULL;
    hres = pSvc->ExecQuery(
        param1,param2,
        WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY, 
        NULL,
        &pEnumerator);
    if (FAILED(hres)) MessageBox::Show("Step6 Error"); else MessageBox::Show("Step6 Passed");
    // Step 7: -------------------------------------------------
    // Get the data from the query in step 6 -------------------
     IWbemClassObject *pclsObj;
    ULONG uReturn = 0;
    while (pEnumerator)
    {
        HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1, 
            &pclsObj, &uReturn);
        if (FAILED(hres)) MessageBox::Show("Step7 Error"); else MessageBox::Show("Step7 Passed");
 
        VARIANT vtProp;
        VariantInit(&vtProp);
        CIMTYPE cimType;
 
        // Get the value of the Name property
        hr = pclsObj->Get(L"Name", 0, &vtProp, &cimType, 0);
        _ASSERTE(cimType == CIM_FLAG_ARRAY | CIM_STRING);
        label4->Text=System::Convert::ToString(vtProp.uintVal);
        VariantClear(&vtProp);
    }
    // Cleanup
    // ========
    
    pSvc->Release();
    pLoc->Release();
  pEnumerator->Release();
//    pclsObj->Release();
    CoUninitialize();
    // Следующая секция кода
Выдает ошибку "чтение\запись в защищенную область памяти. возможно память повреждена"
0
21.09.2012, 18:58
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 21.09.2012, 18:58
Помогаю со студенческими работами здесь

Ссылка на объект не указывает на экземпляр объекта
Всем привет, проблемка возникла. В общем задача подключить базу кнопкой к gridview и потом...

SystemDrawing не рисует в форме - Ссылка на объект не указывает на экземпляр объекта
Всем привет, в общем такая проблема: При выполнении приложения выдает следующее: Необработанное...

Ошибка: "Ссылка на объект не указывает на экземпляр объекта"
Ребят, пишу первую программу в WinForms. Подскажите, пожалуйста в чем ошибка. Компилятор не...

Ссылка на объект не указывает на экземпляр объекта
Пытаюсь написать сокетный чат. Что я делаю не правильно? public: void ThreadStartfnc() {...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала согласования+ стартер fast регистров. Файлы прилагаю. . . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
Как создать нейросеть для генерации картинок на Python
InfoMaster 12.01.2025
Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .
Создание нейросети для генерации текста на Python
InfoMaster 12.01.2025
Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python
InfoMaster 12.01.2025
Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта
InfoMaster 12.01.2025
Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .
Python и нейросети
InfoMaster 12.01.2025
Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .
Python в машинном обучении
InfoMaster 12.01.2025
Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .
Создание UI на Python с TKinter
InfoMaster 12.01.2025
TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .
HTML5 в разработке мобильных приложений
InfoMaster 12.01.2025
Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru