Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Создание базы по определению Антивирусов и Файрволлов через скрипт

< Предыдущая 1 2 3
Ответить
Настройки темы
Создание базы по определению Антивирусов и Файрволлов через скрипт

Ветеран


Сообщения: 904
Благодарности: 162


Конфигурация

Профиль | Отправить PM | Цитировать

Изменения
Автор: saavaage
Дата: 09-10-2010
Просьба проверить Ваши системы данной утилитой и отписаться:
1. Ваши антивирус и файрвол (название, версия)
2. определились или нет данным модулем
3. системные данные

Заранее спасибо всем за тестинг!

Код

читать дальше »
Код: Выделить весь код
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>


Global $DebugMode = 0
Opt("GUIOnEventMode", 1)




$hMain_GUI = GUICreate("Проверка безопасности OS", 619, 182, 189, 122)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

$Tab1 = GUICtrlCreateTab(8, 16, 601, 120)
$Security = GUICtrlCreateTabItem("Проверка на средства защиты OS")

GUICtrlCreateLabel('Ваша OS', 24, 52)
$OS = GUICtrlCreateInput('', 84, 50, 290, 20, BitOR($SS_LEFT, $ES_READONLY, $ES_AUTOHSCROLL))
GUICtrlCreateLabel('SP', 384, 52)
$SP = GUICtrlCreateInput('', 405, 50, 100, 20, BitOR($SS_LEFT, $ES_READONLY, $ES_AUTOHSCROLL))
GUICtrlCreateLabel('Bit', 515, 52)
$Bit = GUICtrlCreateInput(@OSArch , 535, 50, 50, 20, BitOR($SS_LEFT, $ES_READONLY, $ES_AUTOHSCROLL))


GUICtrlCreateLabel('Антивирус', 24, 75)
$Antivirus = GUICtrlCreateInput('', 84, 75, 500, 20, BitOR($SS_LEFT, $ES_READONLY, $ES_AUTOHSCROLL))
GUICtrlCreateLabel('Файрволл', 24, 100)
$Firewall = GUICtrlCreateInput('', 84, 100, 500, 20, BitOR($SS_LEFT, $ES_READONLY, $ES_AUTOHSCROLL))

If _ServiceExists('wscsvc') = 1 Then
   _Antivir()
   _Firewall()
Else
	MsgBox(0, 'Уведомление', 'Для работы модуля необходимо активировать' &@CRLF &' в системе Центр Обеспечения Безопасности!')
EndIf
_OSInfo()

$Button_Save = GUICtrlCreateButton('Сохранить на РС', 501, 145, 100, 30)
GUICtrlSetOnEvent($Button_Save, "_Save")

GUICtrlCreateTabItem("")
GUISetState()

While 1
    Sleep(100)
WEnd

Func CLOSEClicked()
  Exit
EndFunc

Func _Save()
    GUICtrlSetState($Button_Save, $GUI_DISABLE)
	If FileExists(@DesktopDir&'\securety_report.txt') Then
    MsgBox(4096, "securety report", 'securety_report.txt уже существует. Переменуйте' &@CRLF & 'его для предотвращения затирания информации!')
Else
	$sData = GUICtrlRead($OS) & '  ' & GUICtrlRead($SP)  & '  ' & GUICtrlRead($Bit) & '  ' &@CRLF& 'Антивирус: ' & GUICtrlRead($Antivirus) &@CRLF& 'Файрволл: ' & GUICtrlRead($Firewall)
    $file = FileOpen(@DesktopDir&'\securety_report.txt',18)
    FileWrite($file, $sData)
    FileClose($file)
	sleep(1000)
	GUICtrlSetState($Button_Save, $GUI_ENABLE)
EndIf





EndFunc

Func _OSInfo()
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$OutputTitle = ""
$OutputOS = ""
$OutputSP = ""

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
        $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then
    Local $Object_Flag = 0
    For $objItem In $colItems
        $Object_Flag = 1
        $OutputOS &= $objItem.Caption
        $OutputSP &= $objItem.CSDVersion
 	Next
    If $Object_Flag = 0 Then
		GUICtrlSetData($OS, "Система не определена!")
	    GUICtrlSetData($SP, "SP не определен!")
	Else
        GUICtrlSetData($OS, $OutputOS)
	    GUICtrlSetData($SP, $OutputSP)
	    $OutputOS = ""
        $OutputSP = ""
    EndIf
EndIf
EndFunc

Func _Antivir()
	$OutputAnt = ""

$objWMIService = ObjGet("winmgmts:\\localhost\root\SecurityCenter")
$colItems = $objWMIService.ExecQuery("SELECT * FROM AntiVirusProduct", "WQL", 48)

If IsObj($colItems) Then
     For $objItem In $colItems
        $OutputAnt &= $objItem.DisplayName & " Version: " & $objItem.VersionNumber & '  '
     Next
    If $OutputAnt <> '' Then
	  GUICtrlSetData($Antivirus, StringTrimRight($OutputAnt, 2))
      $OutputAnt = ""
	Else
       GUICtrlSetData($Antivirus, 'Антивирус отсутствует!')
    EndIf
Endif
EndFunc

Func _Firewall()
	$OutputFw = ""

$objWMIService = ObjGet("winmgmts:\\localhost\root\SecurityCenter")
$colItems = $objWMIService.ExecQuery("SELECT * FROM FireWallProduct", "WQL", 48)

If IsObj($colItems) Then
    For $objItem In $colItems
        $OutputFw &= $objItem.DisplayName & " Version: " & $objItem.VersionNumber & '  '
    Next
    If $OutputFw <> '' Then
	  GUICtrlSetData($Firewall, StringTrimRight($OutputFw, 2))
      $OutputFw = ""
	Else
       GUICtrlSetData($Firewall, 'Файрволл отсутствует!')
    EndIf
Endif
EndFunc

Func _ServiceExists($nService)
	Local $objWMIService			; Main object
	Local $objQueryCollection		; Result of query
	Local $hObj						; Current selected Object in $objQueryCollection

	If $DebugMode = 1 Then ConsoleWrite(@CR)
	If $DebugMode = 1 Then ConsoleWrite("_ServiceExists($nService)" & @CR)
	If $DebugMode = 1 Then ConsoleWrite("_ServiceExists($nService)=  " & $nService & @CR)

	$objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")

	If IsObj($objWMIService) Then
		If $DebugMode = 1 Then ConsoleWrite("$objWMIService is an Object" & @CR)
		$objQueryCollection = $objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = '" & $nService & "'")
	Else
		Return 110
	EndIf

	If IsObj($objQueryCollection) then
		If $DebugMode = 1 Then ConsoleWrite("Collection returned by Query on $objWMIService)" & @CR)

		For $hObj In $objQueryCollection
			If $hObj.Name = $nService Then Return 1		;Service found, return 0
		Next 											;<== $objWMIService In $hObj
	Else
		Return 110										;Obj error
	EndIf

	Return 0												;Service not found, return -1

EndFunc


ссылка на готовый модуль http://ifolder.ru/19637962

PS в основу модуля легло предложение madmasles ( http://forum.oszone.net/post-1512083-11.html ) за что ему отдельное спасибо.


Итак, на 09102010 промежуточные итоги:

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 14:53, 06-10-2010

 

Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

Новая версия утилиты и скрипта - см. шапку.

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 17:34, 06-10-2010 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для FlatX007

Ветеран


Сообщения: 553
Благодарности: 87

Профиль | Отправить PM | Цитировать

у меня заинстален на компе Nod 32 v4.0...

Код: Выделить весь код
Microsoft Windows 7 Максимальная     X86  
Антивирус: Антивирус отсутствует!
Файрволл: Антивирус отсутствует!

Отправлено: 19:40, 06-10-2010 | #22


Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

Сборная информация с форума (http://forum.oszone.net/thread-187178-8.html):

Система - неизвестна (скорее всего XP SP3)
Антивирус/Файрволл: Антивирус Касперского Version: 6.0.4.1424

Comodo Internet Security 4.1 + AVG 9:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: AVG Anti-Virus Free Version: 9.0
Файрволл: Антивирус отсутствует!

Comodo Internet Security 4.1 (только файрволл) + Avira:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: AntiVir Desktop Version: 10.0.1.43
Файрволл: COMODO Firewall Version: 3.9

DrWeb Security Space Pro 6.0:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: Doctor Web Anti-Virus Version: 6.0.2.06210
Файрволл: Doctor Web Firewall Version: 6.0.2.06210

Comodo Internet Security 4.1 (только файрволл) + DrWeb Security Space Pro 6.0 (только антивирус):
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: Doctor Web Anti-Virus Version: 6.0.2.06210
Файрволл: Doctor Web Firewall Version: 6.0.2.06210

avast! Home Edition 5.0 + DrWeb Security Space Pro 6.0:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: Doctor Web Anti-Virus Version: 6.0.2.06210 avast! Antivirus Version: 5.0.83886498
Файрволл: Doctor Web Firewall Version: 6.0.2.06210

PC Tools Firewall Plus 6.0.0.86 + avast! Home Edition 5.0:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: avast! Antivirus Version: 5.0.83886498
Файрволл: PC Tools Firewall Plus Version: 6.0.0

ESET Smart Security 4.2:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: ESET Smart Security 4.2 Version: 4.2
Файрволл: Персональний брандмауер ESET Version: 4.2.64.5

PC Tools Firewall Plus 6.0.0.86 + ESET Smart Security 4.2:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: ESET Smart Security 4.2 Version: 4.2
Файрволл: PC Tools Firewall Plus Version: 6.0.0 Персональний брандмауер ESET Version: 4.2.64.5

PC Tools Firewall Plus 6.0.0.86 + ESET Smart Security 4.2 + avast! Home Edition 5.0
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: avast! Antivirus Version: 5.0.83886498 ESET Smart Security 4.2 Version: 4.2
Файрволл: PC Tools Firewall Plus Version: 6.0.0 Персональний брандмауер ESET Version: 4.2.64.5

Outpost Security Suite Pro 7.0.2:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: Outpost Security Suite Pro Version: ASWDB6, VB4.3, VDB9
Файрволл: Outpost Security Suite Pro Version: 7.0.2

Outpost Antivirus Pro 7.0.2 + Avira + avast! Home Edition 5.0 + PC Tools Firewall Plus 6.0.0.86 + Comodo Internet Security 4.1
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: Outpost Antivirus Pro Version: ASWDB6, VB4.3, VDB9 AntiVir Desktop Version: 10.0.1.43 avast! Antivirus Version: 5.0.83886498
Файрволл: PC Tools Firewall Plus Version: 6.0.0

Comodo Internet Security 4.1 + avast! Home Edition 5.0:
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: COMODO Antivirus Version: 3.9 avast! Antivirus Version: 5.0.83886498
Файрволл: COMODO Firewall Version: 3.9

Comodo Internet Security 4.1 (только файрволл) + AVG 9
Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: AVG Anti-Virus Free Version: 9.0
Файрволл: COMODO Firewall Version: 3.9

Информация в блоках означает, что решения используются одновременно.

Спасибо за глобальный тестинг stalinit078

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 03:33, 07-10-2010 | #23


Аватара для Centrinar

Старожил


Сообщения: 247
Благодарности: 1

Профиль | Цитировать

Аваст не видит

Отправлено: 12:08, 07-10-2010 | #24


Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

Centrinar, у меня видит. Если можно, скопируйте сюда информацию из созданного txt-файла... У Вас, часом, не Win7 и не вырезан ли Центр обеспечения безопасноси?

-------
мы рождены, чтоб сказку сделать былью

Последний раз редактировалось saavaage, 07-10-2010 в 13:35.

Отправлено: 12:17, 07-10-2010 | #25


Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

На виртуалке установлены Avast Home и PC Tools Firewall. Получил такой отчет:

Microsoft Windows XP Professional Service Pack 3 X86
Антивирус: avast! Antivirus Version: 5.0.83886757
Файрволл: PC Tools Firewall Plus Version: 6.0.0

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 13:39, 07-10-2010 | #26


Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

еще с форума:

для XP SP3 Ru

Протестировал Comodo Internet Security 4.1:
COMODO Antivirus Version: 3.9
COMODO Firewall Version: 3.9

Comodo Internet Security 4.1 (только файрволл) + AVG 9:
AVG Anti-Virus Free Version: 9.0
COMODO Firewall Version: 3.9

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 22:56, 07-10-2010 | #27


Ветеран


Сообщения: 904
Благодарности: 162

Профиль | Отправить PM | Цитировать

Промежуточные итоги - см. таблицу в шапке

-------
мы рождены, чтоб сказку сделать былью

Отправлено: 13:57, 09-10-2010 | #28

< Предыдущая 1 2 3


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Создание базы по определению Антивирусов и Файрволлов через скрипт

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Не обновляются антивирусные базы, не могу зайти на сайты антивирусов Sunforger Лечение систем от вредоносных программ 3 12-02-2010 12:36
[решено] Отключение дисплея или перевод в СПЯЩИЙ РЕЖИМ через через скрипт sashadeg AutoIt 4 30-05-2009 13:06
Создание локальных зеркал антивирусов Dimidrol II Защита компьютерных систем 3 04-01-2008 15:18
скрипт для дампа базы и отправки на другой хост nix_lamer Программирование в *nix 5 12-02-2007 14:09
Создание базы данных на с++builder Galosh Программирование и базы данных 2 27-06-2003 15:47


« Предыдущая тема | Следующая тема »


 
Переход