添加WindowsXP防火墙的端口

最新推荐文章于 2021-02-03 21:46:54 发布

iteye_3592

最新推荐文章于 2021-02-03 21:46:54 发布

阅读量370

点赞数

分类专栏： OS 文章标签：防火墙 .net Microsoft Windows

OS 专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一段VBS脚本，该脚本用于在Windows防火墙中开放TCP协议的8080端口，并将此端口命名为HTTP/UICCY。通过设置端口名称、协议类型及端口号等参数，实现对指定端口的有效管理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用以下这段VBS, 开放8080端口, 命名为HTTP/UICCY
详细内容参阅 [url=http://msdn2.microsoft.com/en-us/library/aa366415.aspx]Using Windows Firewall API[/url]

Option Explicit
On Error GoTo 0

'Set Constants
Const NET_FW_IP_PROTOCOL_UDP = 17
Const NET_FW_IP_PROTOCOL_TCP = 6

Const NET_FW_SCOPE_ALL = 0
Const NET_FW_SCOPE_LOCAL_SUBNET = 1

'Declare variables
Dim errornum

' Create the firewall manager object.
Dim fwMgr
Set fwMgr = CreateObject("HNetCfg.FwMgr")

' Get the current profile for the local firewall policy.
Dim profile
Set profile = fwMgr.LocalPolicy.CurrentProfile

Dim port
Set port = CreateObject("HNetCfg.FWOpenPort")

port.Name = "HTTP/UICCY"
port.Protocol = NET_FW_IP_PROTOCOL_TCP
port.Port = 8080

'If using Scope, don’t use RemoteAddresses
port.Scope = NET_FW_SCOPE_ALL
'Use this line to scope the port to Local Subnet only
'port.Scope = NET_FW_SCOPE_LOCAL_SUBNET

port.Enabled = TRUE
'Use this line instead if you want to add the port, but disabled
'port.Enabled = FALSE

On Error Resume Next
profile.GloballyOpenPorts.Add port
errornum = Err.Number

If errornum <> 0 Then
WScript.Echo("Adding the port failed. Error Number: " & errornum)
End If