Site em Construção !!!

Adionar porta no Firewall através de script

26/01/2010 12:35

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.

Voltar

Pesquisar no site

© 2010 Todos os direitos reservados.

Crie um site com

  • Totalmente GRÁTIS
  • Centenas de templates
  • Todo em português

Este site foi criado com Webnode. Crie um grátis para você também!