VBS Firewall

最新推荐文章于 2021-11-20 14:07:12 发布
最新推荐文章于 2021-11-20 14:07:12 发布
阅读量736 收藏
点赞数
分类专栏： WINDOWS 文章标签： application windows properties service notifications list

Windows Firewall Scripting

 

 

 

Add an Authorized Application


Adds Freecell.exe to the list of authorized applications in the current Windows Firewall profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")

objApplication.Name = "Free Cell"

objApplication.IPVersion = 2

objApplication.ProcessImageFileName = "c:\windows\system32\freecell.exe"

objApplication.RemoteAddresses = "*"

objApplication.Scope = 0

objApplication.Enabled = True

 

Set colApplications = objPolicy.AuthorizedApplications

colApplications.Add(objApplication)

       

 

Add an Application to the Standard Profile


Adds Freecell.exe to the list of authorized applications in the Windows Firewall standard profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy

Set objProfile = objPolicy.GetProfileByType(1)

 

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")

objApplication.Name = "Free Cell"

objApplication.IPVersion = 2

objApplication.ProcessImageFileName = "c:\windows\system32\freecell.exe"

objApplication.RemoteAddresses = "*"

objApplication.Scope = 0

objApplication.Enabled = True

 

Set colApplications = objProfile.AuthorizedApplications

colApplications.Add(objApplication)

       

 

Create a New Port


Opens port 9999 in the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objPort = CreateObject("HNetCfg.FwOpenPort")

objPort.Port = 9999

objPort.Name = "Test Port"

objPort.Enabled = FALSE

Set colPorts = objPolicy.GloballyOpenPorts

 

errReturn = colPorts.Add(objPort)

       

 

Delete an Authorized Application


Deletes Freecell.exe from the list of authorized applications in the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colApplications = objPolicy.AuthorizedApplications

 

errReturn = colApplications.Remove("c:\windows\system32\freecell.exe")

       

 

Disable the Firewall


Disables the Windows Firewall for the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

objPolicy.FirewallEnabled = FALSE

       

 

Delete an Open Port


Closes port 9999 in the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colPorts = objPolicy.GloballyOpenPorts

errReturn = colPorts.Remove(9999,6)

       

 

Disable Remote Administration


Disable Windows Firewall remote administration.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objAdminSettings = objPolicy.RemoteAdminSettings

objAdminSettings.Enabled = FALSE

       

 

Enable the Firewall


Enables Windows Firewall for the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

objPolicy.FirewallEnabled = TRUE

       

 

Enable File and Printer Sharing Through Windows Firewall


Enables File and Printer Sharing on a computer running Windows XP Service Pack 2.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colServices = objPolicy.Services

Set objService = colServices.Item(0)

objService.Enabled = TRUE

       

 

Enable Remote Administration


Enables remote administration of Windows Firewall fro the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objAdminSettings = objPolicy.RemoteAdminSettings

objAdminSettings.Enabled = TRUE

       

 

List Authorized Applications


Lists all authorized applications for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colApplications = objPolicy.AuthorizedApplications

 

For Each objApplication in colApplications

    Wscript.Echo "Authorized application: " & objApplication.Name

    Wscript.Echo "Application enabled: " & objApplication.Enabled

    Wscript.Echo "Application IP version: " & objApplication.IPVersion

    Wscript.Echo "Application process image file name: " & _

        objApplication.ProcessImageFileName

    Wscript.Echo "Application remote addresses: " & _

        objApplication.RemoteAddresses

    Wscript.Echo "Application scope: " & objApplication.Scope

    Wscript.Echo

Next

       

 

List Authorized Applications in the Standard Profile


Lists all authorized applications for the Windows Firewall standard profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy

 

Set objProfile = objPolicy.GetProfileByType(1)

Set colApplications = objProfile.AuthorizedApplications

 

For Each objApplication in colApplications

    Wscript.Echo "Authorized application: " & objApplication.Name

    Wscript.Echo "Application enabled: " & objApplication.Enabled

    Wscript.Echo "Application IP version: " & objApplication.IPVersion

    Wscript.Echo "Application process image file name: " & _

        objApplication.ProcessImageFileName

    Wscript.Echo "Application remote addresses: " & _

        objApplication.RemoteAddresses

    Wscript.Echo "Application scope: " & objApplication.Scope

    Wscript.Echo

Next

       

 

List All Globally-Open Ports


Lists all globally-open ports for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colPorts = objPolicy.GloballyOpenPorts

 

For Each objPort in colPorts

    Wscript.Echo "Port name: " & objPort.Name

    Wscript.Echo "Port number: " & objPort.Port

    Wscript.Echo "Port IP version: " & objPort.IPVersion

    Wscript.Echo "Port protocol: " & objPort.Protocol

    Wscript.Echo "Port scope: " & objPort.Scope

    Wscript.Echo "Port remote addresses: " & objPort.RemoteAddresses

    Wscript.Echo "Port enabled: " & objPort.Enabled

    Wscript.Echo "Port built-in: " & objPort.Builtin

Next

       

 

List Firewall Properties


Lists Windows Firewall properties for the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Wscript.Echo "Current profile type: " & objFirewall.CurrentProfileType

 

Wscript.Echo "Firewall enabled: " & objPolicy.FirewallEnabled

Wscript.Echo "Exceptions not allowed: " & objPolicy.ExceptionsNotAllowed

Wscript.Echo "Notifications disabled: " & objPolicy.NotificationsDisabled

Wscript.Echo "Unicast responses to multicast broadcast disabled: " & _

    objPolicy.UnicastResponsestoMulticastBroadcastDisabled

       

 

List Firewall Service Properties


Lists service properties for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set colServices = objPolicy.Services

 

For Each objService in colServices

    Wscript.Echo "Service name: " & objService.Name

    Wscript.Echo "Service enabled: " & objService.Enabled

    Wscript.Echo "Service type: " & objService.Type

    Wscript.Echo "Service IP version: " & objService.IPVersion

    Wscript.Echo "Service scope: " & objService.Scope

    Wscript.Echo "Service remote addresses: " & objService.RemoteAddresses

    Wscript.Echo "Service customized: " & objService.Customized

    Set colPorts = objService.GloballyOpenPorts

    For Each objPort in colPorts

        Wscript.Echo "Port name: " & objPort.Name

        Wscript.Echo "Port number: " & objPort.Port

        Wscript.Echo "Port enabled: " & objPort.Enabled

        Wscript.Echo "Port built-in: " & objPort.BuiltIn

        Wscript.Echo "Port IP version: " & objPort.IPVersion

        Wscript.Echo "Port protocol: " & objPort.Protocol

        Wscript.Echo "Port remote addresses: " & objPort.RemoteAddresses

        Wscript.Echo "Port scope: " & objPort.Scope

    Next

    Wscript.Echo

Next

       

 

List ICMP Settings


Lists ICMP settings for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objICMPSettings = objPolicy.ICMPSettings

 

Wscript.Echo "Allow inbound echo request: " & _

    objICMPSettings.AllowInboundEchoRequest

Wscript.Echo "Allow inbound mask request: " & _

    objICMPSettings.AllowInboundMaskRequest

Wscript.Echo "Allow inbound router request: " & _

    objICMPSettings.AllowInboundRouterRequest

Wscript.Echo "Allow inbound timestamp request: " & _

    objICMPSettings.AllowInboundTimestampRequest

Wscript.Echo "Allow outbound destination unreachable: " & _

    objICMPSettings.AllowOutboundDestinationUnreachable

Wscript.Echo "Allow outbound packet too big: " & _

    objICMPSettings.AllowOutboundPacketTooBig

Wscript.Echo "Allow outbound parameter problem: " & _

    objICMPSettings.AllowOutboundParameterProblem

Wscript.Echo "Allow outbound source quench: " & _

    objICMPSettings.AllowOutboundSourceQuench

Wscript.Echo "Allow outbound time exceeded: " & _

    objICMPSettings.AllowOutboundTimeExceeded

Wscript.Echo "Allow redirect: " & objICMPSettings.AllowRedirect

       

 

List Remote Administration Settings


Lists remote administration settings for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objAdminSettings = objPolicy.RemoteAdminSettings

Wscript.Echo "Remote administration settings enabled: " & _

    objAdminSettings.Enabled

Wscript.Echo "Remote administration addresses: " & _

    objAdminSettings.RemoteAddresses

Wscript.Echo "Remote administration scope: " & objAdminSettings.Scope

Wscript.Echo "Remote administration IP version: " & objAdminSettings.IPVersion

       

 

List Standard Profile Properties


Demonstration script that connects to and returns information about the Windows Firewall standard profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy

Set objProfile = objPolicy.GetProfileByType(1)

 

Wscript.Echo "Firewall enabled: " & objProfile.FirewallEnabled

Wscript.Echo "Exceptions not allowed: " & objProfile.ExceptionsNotAllowed

Wscript.Echo "Notifications disabled: " & objProfile.NotificationsDisabled

Wscript.Echo "Unicast responses to multicast broadcast disabled: " & -

    objProfile.UnicastResponsestoMulticastBroadcastDisabled

       

 

Modify an ICMP Setting


Demonstration script that modifies a Windows Firewall ICMP setting for the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

Set objICMPSettings = objPolicy.ICMPSettings

objICMPSettings.AllowRedirect = TRUE

       

 

Modify a Firewall Property


Demonstration script that modifies Windows Firewall properties for the current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

 

objPolicy.ExceptionsNotAllowed = TRUE

objPolicy.NotificationsDisabled = TRUE

objPolicy.UnicastResponsestoMulticastBroadcastDisabled = TRUE

       

 

Open a Closed Port


Opens closed port 9999 for the Windows Firewall current profile.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colPorts = objPolicy.GloballyOpenPorts

 

Set objPort = colPorts.Item(9999,6)

objPort.Enabled = TRUE

       

 

Restore the Default Settings


Restore the Windows Firewall default settings.

Set objFirewall = CreateObject("HNetCfg.FwMgr")

objFirewall.RestoreDefaults()

       

http://msdn.microsoft.com/en-us/library/bb736292(VS.85).aspx

 

--------------------------------------------------------------------------------

from http://www.activexperts.com/activmonitor/windowsmanagement/scripts/networking/windowsfirewall/#EFirew.htm

 

 

wonitazansa1
关注
专栏目录
vbs整人代码蓝屏_求大量VBS整人代码.
weixin_42410566的博客
12-28 6578
展开全部大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就62616964757a686964616fe58685e5aeb931333433633336是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。set qstart = wscript.CreateObject("wscript.shell")s...
vbs整人代码蓝屏_vbs整人代码
weixin_39881575的博客
12-19 1922
展开全部大量的楼上已经说了。这个e68a84e8a2ad62616964757a686964616f31333433633336是本人原创，亲测有用。毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。set qstart = wscript.CreateObject("wscript.shell")s...
使用VBS 操作防护墙
a8366的专栏
01-18 460
vbs 脚本是在windos OS上 run 的一种脚本语言，类似于linux上的shell   我们的product 使用vbs脚本来给virtual machine 设置hostname ,ip,netmask ，ect..   下面主要谈下 vbs操作防火墙：   You can use any of the VBScript programs below in Active...
Vbs程序批量修改防火墙路由
weixin_34197488的博客
09-22 105
Vbs程序批量修改防火墙路由近期朋友在外面做了一个项目，需要对网络架构做整改，明白需求后，准备第二天给客户做架构调整；据了解他们的有两条线路，一条电信、一条网通；两条线都是通过一个路由器进行出网的，他们有一个防火墙，需要将电信的网络切换到防火墙上，切换前，他就说需要添加一个路由表，我们知道电信的路由表比较多，所以需要手动去添加，所以在网上就下载了一个比较完整的电信路由表，但是...
AddFirewallPort.vbs(批量添加端口)
weixin_33843409的博客
06-27 274
AddFirewallPort.vbs(批量添加端口) ON ERROR RESUME NEXT Function AddFirewallPort(strName,iPort,iProtocol,iScope,bEnabled) Set objFirewall = CreateObject("HNetCfg.FwMgr") Set ...
vbs 关闭windows 防火墙
crkres9527
03-28 1196
' 关闭防火墙Set objFirewall=CreateObject("HNetCfg.FwPolicy2")'旧版方法'Set objPolicy=objFirewall.LOcalPolicy.CurrentProfile'objPolicy.FirewallEnabled=FalseConst NET_FW_PROFILE2_DOMAIN = 1Const NET_FW_PROFILE2_...
VBS获取域名解析ip并加入防火墙
daddy2000的博客
07-01 557
由于公司ip不固定只能使用域名动态解析，但是公司外放的服务器开着防火墙又需要cactie外部监控，不得不写一个挂载脚本去动态解析ip写入防火墙。又加上该服务器windows还不准装任何不相干的语言环境。。。。python无处施展能力，不得不用vbs解决。 Dim http,IP1,IP2 `外部网站解析域名 Function getIP(domain) set fs =createobject(...
QQ ARP Firewall 12.1
12-15
解压后运行\QQ ARP Firewall 12.1\plugins\QMArpMgr\QMArpMgr.exe安装。然后运行add-to-startup.vbs开机启动。Windows server 2012 r2测试可以直接安装成功，win7好像不行，需要下载管家安装了arp 防火墙后，再卸载...
vbs常用地方
longyup的博客
08-09 433
VBS获取系统安装路径 先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。 set WshShell = WScript.CreateObject(“WScript.Shell”) strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%") VBS获取C:\Program Files路径 msgbox CreateObject(“WScript.Shell”).ExpandEnvironmentStr
VBS脚本常用经典代码收集
关注产品，关注前端，关注体验
12-26 3527
<br /><br />VBS脚本用途很多：<br />1. 计算<br />2. 处理文件和文件夹<br />3. 管理Windows<br />4. 处理Word, Excel, PowerPoint等Office文档<br />5. 嵌入网页，驱动dHTML<br />6. 编写HTTP通信<br />7. 调用系统功能（COM组件），比如说语音说话<br />8. 分析HTML, XML<br />9. 调用命令行并分析返回结果<br />10. 处理图片<br />11. 自动化按键<
防火墙开启例外端口
06-09
.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 开启例外端口 (“测试”, 123) .子程序 开启例外端口 .参数 名称, 文本型 .参数 端口, 短整数型 .局部变量 ovMgr, 对象 .局部变量 ovProfile, 对象 .局部变量 ovPort, 对象 ovMgr.创建 (“HNetCfg.FwMgr”, ) ovProfile ＝ ovMgr.读对象型属性 (“LocalPolicy”, ).读对象型属性 (“CurrentProfile”, ) ovPort.创建 (“HNetCfg.FwOpenPort”, ) ovPort.写属性 (“Port”, 端口) ovPort.写属性 (“Name”, 名称) ovPort.写属性 (“Scope”, 0) ' NET_FW_SCOPE_ALL; ovPort.写属性 (“IpVersion”, 2) ' NET_FW_IP_VERSION_ANY ovPort.写属性 (“Protocol”, 6) ' NET_FW_IP_PROTOCOL_TCP ovPort.写属性 (“Enabled”, 真) ovProfile.读对象型属性 (“GloballyOpenPorts”, ).方法 (“Add”, ovPort)
C#控制系统防火墙
lhy1986的专栏
05-10 1775
using System;using System.Collections.Generic;using System.Text;using NetFwTypeLib;namespace FireWallTest{ public class FireWallHelp { /// /// 添加防火墙例外端口 /// /// 名称 /// 端口 /// 协议(TCP、UDP) public static
增加应用程序或端口到windows防火墙中.
wangyunyong0905的专栏
12-03 816
不要忘记引用ActiveX和ComObj这两个单元. Const   NET_FW_PROFILE_DOMAIN = 0;   NET_FW_PROFILE_STANDARD = 1;   NET_FW_IP_VERSION_ANY = 2;   NET_FW_IP_PROTOCOL_UDP = 17;   NET_FW_IP_PROTOCOL_TCP = 6;   NET_FW_SCOPE_AL
程式实现更改防火墙设置（Win7+VS2010）
驿站
12-31 1046
1.使用VS2010建立Winform程序，界面如下： 2.编写代码： using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; us
让你的程序通过XP防火墙
点滴记录
04-24 316
把以下代码加入到程序的启动中，就可以让程序通过xp防火墙，而不再有拦截提示。 需要引用单元：ComObj var   FwMgr,Profile,FwApp: variant; begin   FwMgr := CreateOLEObject('HNetCfg.FwMgr');   Profile := FwMgr.LocalPolicy.CurrentProfile;   Fw
Windows防火墙操作代码
qycer的专栏
08-24 4660
/* Windows Firewall  虽然未见得管用，但它对我们软件实施有时候会带来不少的麻烦，所以有时候要干预它的行为，贴一段MS的演示代码，供各位参考。 */ #include #include #include #include #include
使用windows提供的API判断防火墙开启状态
new9232的博客
11-20 1711
有时候在代码中我们需要检测防火墙的状态变化，就可以使用windows提供的API函数 #include <windows.h> #include <crtdbg.h> #include <netfw.h> #include <objbase.h> #include <oleauto.h> #include <stdio.h> #pragma comment( lib, "ole32.lib" ) #pragma comment(
Windows防火墙启用，禁用，添加例外端口和应用程序
千里之外
11-30 3466
以下代码参考自MSDN,不过经过一点点修改，自己也逐个方法调试了，完全可行。网上的很多博客都是直接拷贝MSDN的代码，我的机器 是Windows XP  Professional SP3，需要安装对应的Windows SDK，并在VC的包含目录和静态库目录中 添加分别SDK的include目录和库目录，直接上代码，每个方法都写得很清楚 [cpp] view p
c++ 操作防火墙 firewall
zhangxiaonanwin的专栏
11-24 7960
C++Window防火墙操作(添加例外端口，例外程序，关闭，开启)lyz2010-07-28 23:50//转载文章，方便大家使用，如需JAVA通过JNI调用的DLL文件，请回复时加上你的邮件地址/*Copyright (c) Microsoft CorporationSYNOPSISSample code for the Windows Firewall COM interface.*/#include #include #include #include #include #include #pragm
McAfee Firewall 8.0.0 for Linux: 新增功能与安装指南
MCAFEE Firewall for Linux 8.0.0 是一款强大的防火墙解决方案，专为Linux环境设计，旨在提供高效、统一管理和高级安全功能。本手册详述了该版本的重要更新和特性，以及安装、已知问题和产品文档的相关信息。 **...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值