Adionar porta no Firewall através de script

Aplicação: Windows XP e 2003 Server

Através desse script é possível abrir uma porta no firewall do Windows.

Abrir bloco de notas do Windows, Menu Iniciar > Executar digite notepad.

Copiar o conteúdo abaixo e salvar como na imagem abaixo firewall.vbs.

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 5900
objPort.Name = "VNC"
objPort.Enabled = TRUE
Set colPorts = objPolicy.GloballyOpenPorts

errReturn = colPorts.Add(objPort)

Conclusão

Nesse exemplo abrimos a porta 5900 no firewall com o nome de VNC.

Para abrir outras portas é só alterar essas linhas objPort.Port = 5900 e objPort.Name = "VNC".

Para fechar uma porta basta alterar a linha objPort.Enabled = TRUE, de TRUE para FALSE.