使用HNetCfg.FwMgr对象将当前应用程序添加到Windows防火墙例外列表

lss001

…………………………………………
见楼下更新代码……………………
参考以下链接地址
https://www.cnblogs.com/interdrp/p/10778335.html

lss001

Public Sub AddApplicationRule()
    ’ 引用NETCONLib//hnetcfg.dll
    ’NetFwTypeLib//FirewallAPI.dll
    'Dim fwMgr As INetFwMgr
    'Dim oProfile As INetFwProfile
    On Error GoTo errHandler
    '声明Windows防火墙配置管理接口对象
    Set fwMgr = CreateObject("HNetCfg.FwMgr")
    '获取本地防火墙当前的配置对象
    Set oProfile = fwMgr.LocalPolicy.CurrentProfile
    'Dim oApplication As INetFwAuthorizedApplication
    '声明认证程序对象
    Set oApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
    '设置认证程序对象的相关属性
    With oApplication
        '应用程序的完整路径
        .ProcessImageFileName = Application.Path & "\Excel.exe"
        '应用程序的名称，也就是在Windows防火墙例外列表中显示的名称
        .Name = "测试例子"
        '定义本规则作用的范围
        .Scope = 0 'NET_FW_SCOPE_ALL
        '定义本规则用户的IP协议版本
        .IpVersion = 2 'NET_FW_IP_VERSION_ANY
        '表示启用当前规则
        .Enabled = True
    End With
    '将创建的认证程序对象添加到本地防火墙策略的认证程序集合
    oProfile.AuthorizedApplications.Add oApplication
    Set oApplication = Nothing
    Set oProfile = Nothing
    Set fwMgr = Nothing
    MsgBox ("添加成功！")
    Exit Sub
errHandler:
    MsgBox (Err.Description)
    Err.Clear
End Sub