Как добавить авторизованное приложение в Windows Firewall с проверенными профилями Private и Publi c? - PullRequest
1 голос
/ 09 апреля 2020

Мне нужно добавить SQL Сервер к брандмауэру, отметив Приватный и Publi c. Я пытался возиться с профилем брандмауэра, но, кажется, нет возможности установить его на оба.

Dim ruleSQL As INetFwAuthorizedApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
    ruleSQL.Name = "12 SQL Test"
    ruleSQL.IpVersion = NET_FW_IP_VERSION_.NET_FW_IP_VERSION_ANY
    ruleSQL.ProcessImageFileName = "C:\Program Files\Microsoft SQL Server\MSSQL15.EDGESQL2019\MSSQL\Binn\sqlservr.exe"
    ruleSQL.Scope = 0
    ruleSQL.Enabled = True




    Dim firewall As INetFwMgr = CreateObject("HNetCfg.FwMgr")

    Dim tfwpolicy As INetFwPolicy = firewall.LocalPolicy


    Dim ppolicy As INetFwProfile = tfwpolicy.GetProfileByType(NET_FW_PROFILE_TYPE_.NET_FW_PROFILE_STANDARD)

    ppolicy.AuthorizedApplications.Add(ruleSQL)
...