自動添加端口添加至Windows防火牆腳本

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

本文轉自 idyllic_cyty 51CTO部落格，原文連結:http://blog.51cto.com/aizzw/313372