purebasic.info

PureBasic forum
Текущее время: Пн апр 23, 2018 8:17 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 11 ] 
Автор Сообщение
СообщениеДобавлено: Вс мар 12, 2017 2:30 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
Код:
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
DataSection
  CLSID_WbemAdministrativeLocator:
 Data.l  $CB8555CC
  Data.w  $9128
  Data.w  $11D1
  Data.b $AD, $9B, $0, $C0, $4F, $D8, $FD, $FF
  IID_IWbemLocator:
 Data.l  $DC12A687
  Data.w  $737F
  Data.w  $11CF
  Data.b $88, $4D, $0, $AA, $0, $4B, $2E, $24
  IID_IUnknown:
    ;00000000-0000-0000-C000-000000000046
Data.l $00000000
Data.w $0000, $0000
Data.b $C0, $00, $00, $00, $00, $00, $00, $46
EndDataSection
 
Procedure.s DetectAV(prog.s, name.s, root.s = "root\SecurityCenter2")
  avGet.s = "Select * FROM " + prog
   CoInitializeEx_(0,0)
    If  CoInitializeSecurity_(0, -1,0,0,2,2,0,0,0) = 0
      pLocator.IWbemLocator
       If CoCreateInstance_(?CLSID_WbemAdministrativeLocator, 0, 1, ?IID_IWbemLocator, @pLocator) =0
         
       pServices.IWbemServices
         
        If pLocator\ConnectServer(@root, 0, 0, 0, 0, 0, 0, @pServices.IWbemServices) = 0
 
          pEnum.IEnumWbemClassObject
          If pServices\ExecQuery(@"WQL", @avGet, 48, 0, @pEnum) = 0
            pObject.IWbemClassObject
            v.VARIANT
 
            If pEnum\Next(-1, 1, @pObject, @returned) = 0
             
              VariantInit_(@v)
              If pObject\Get(@name, 0, @v, 0, 0) = 0
                retour$ +  PeekS(v\bstrVal)
                VariantClear_(@v)
              EndIf          
              pObject\Release()
            EndIf
            pEnum\Release()
          EndIf
          pServices\Release()
        EndIf
        pLocator\Release()
      EndIf
     EndIf
    CoUninitialize_()
 
  ProcedureReturn retour$
EndProcedure
 
Debug  #CRLF$ + "==== AntiVirus ==="
Debug DetectAV("AntiVirusProduct", "displayName")
Debug DetectAV("AntiVirusProduct", "instanceGuid")
Debug DetectAV("AntiVirusProduct", "pathToSignedProductExe")
 
Debug  #CRLF$ + "==== AntiSpyware ==="
Debug DetectAV("AntiSpywareProduct", "displayName")
Debug DetectAV("AntiSpywareProduct", "instanceGuid")
Debug DetectAV("AntiSpywareProduct", "pathToSignedProductExe")
 
Debug  #CRLF$ + "==== Firewall ==="
Debug DetectAV("FirewallProduct", "displayName")
Debug DetectAV("FirewallProduct", "instanceGuid")
Debug DetectAV("FirewallProduct", "pathToSignedProductExe")



Последний раз редактировалось MrF Вс мар 12, 2017 3:01 pm, всего редактировалось 3 раз(а).

Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 2:35 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6246
Благодарил (а): 17 раз.
Поблагодарили: 182 раз.
Пункты репутации: 48
#RPC_C_AUTHN_LEVEL_CONNECT = ? (2)
#RPC_C_IMP_LEVEL_IDENTIFY = ? (2)

_________________
read-only


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 2:41 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
У тебя нет такой константы?
#RPC_C_AUTHN_LEVEL_CONNECT=2
Поправил.


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 2:43 pm 
Не в сети
МОДЕРАТОР
Аватар пользователя

Зарегистрирован: Пн апр 09, 2007 4:53 pm
Сообщений: 11108
Благодарил (а): 4 раз.
Поблагодарили: 395 раз.
kvitaliy писал(а):
#RPC_C_AUTHN_LEVEL_CONNECT = ?
В 5.60 надо компилировать.

_________________
Компьютер позволяет решать все те проблемы, которые до его изобретения не существовали. :) :)


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 2:45 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
Да оно и в 5.42 работает. Только что в юникоде надо компилить.


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 2:49 pm 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6246
Благодарил (а): 17 раз.
Поблагодарили: 182 раз.
Пункты репутации: 48
#EOAC_NONE=0
и такой нет. я работаю в 5.31

_________________
read-only


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс мар 12, 2017 3:02 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
Точно, в 5.31 нет таких констант.
Убрал все константы в первом посте.


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн мар 13, 2017 5:05 am 
Не в сети
профессор

Зарегистрирован: Чт сен 22, 2011 6:21 pm
Сообщений: 224
Благодарил (а): 31 раз.
Поблагодарили: 22 раз.
Пункты репутации: 0
Что не так? (Win XP, Pb5.44)
Изображение

Add: все ясно: "Minimum supported client - Windows Vista" (https://msdn.microsoft.com/ru-ru/library/windows/desktop/aa392093(v=vs.85).aspx)


Вложения:
Безымянный.JPG [49.9 KiB]
Скачиваний: 0
Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн мар 13, 2017 12:52 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
Kuzmat писал(а):
Что не так? (Win XP, Pb5.44)

Хм, в хрюше вроде же есть wmi, попробуй этот пример https://forum.tuts4you.com/blogs/entry/ ... r-snippet/


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн мар 13, 2017 4:20 pm 
Не в сети
профессор

Зарегистрирован: Чт сен 22, 2011 6:21 pm
Сообщений: 224
Благодарил (а): 31 раз.
Поблагодарили: 22 раз.
Пункты репутации: 0
MrF писал(а):
Хм, в хрюше вроде же есть wmi, попробуй этот пример https://forum.tuts4you.com/blogs/entry/ ... r-snippet/

Этот работает на всех платформах (проверено на XP и W7)


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Пн мар 13, 2017 4:37 pm 
Не в сети
профессор

Зарегистрирован: Вс июн 10, 2012 8:18 am
Сообщений: 1294
Благодарил (а): 60 раз.
Поблагодарили: 49 раз.
Пункты репутации: 14
Kuzmat писал(а):
"Minimum supported client - Windows Vista"

Вот тут не понятно откуда такое ограничение, если интерфейс IWbemServices еще задолго до висты обсуждался https://rsdn.org/forum/winapi/25093.hot


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 11 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB