自动添加端口添加至Windows防火墙脚本

2012-2-27 16:36 689 0

摘要: copy一下文件内容到文本文档里，然后修改后缀名为".vbs" ，双击该脚本就可以把该文档里自定义的端口都自动添加到防火墙里了。 call Addfirewall("端口",端口,1) &n...

关键词： Addfirewall nbsp 端口 call objPort 防火墙 Set CreateObject aizzw objFirewall

copy一下文件内容到文本文档里，然后修改后缀名为".vbs" ，双击该脚本就可以把该文档里自定义的端口都自动添加到防火墙里了。 call Addfirewall("端口",端口,1) 例： copy star： '#####################'VBS修改端口,并添加至Windows防火墙'作者aizzw '##################### Function Addfirewall(name,port,state) Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set objPort = CreateObject("HNetCfg.FwOpenPort") objPort.Port = port objPort.Name = name objPort.Enabled = state Set colPorts = objPolicy.GloballyOpenPorts errReturn = colPorts.Add(objPort)End Function call Addfirewall("1433",1433,1)call Addfirewall("5201314",5201314,1)call Addfirewall("7758",7758,1)call Addfirewall("40302",40302,1)call Addfirewall("45002",45002,1)call Addfirewall("40003",40003,1)call Addfirewall("41001",41001,1) set WshShell = nothing msgbox "端口已添加到防火墙" stop copy 本文出自 “aizzw的网络世界” 博客，请务必保留此出处http://aizzw.blog.51cto.com/440409/313372

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除