Мне нужно добавить 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)