none
Alterar Conf Avançada do Firewall XP com vbs

    Pergunta

  • Olá Amigos.

    Precisei fazer algumas alterações no firewall das estações da minha empresa, e segui as dicas postadas aqui no forum. Entretanto, agora preciso alterar também por vbs, aplicado por GPO, uma excessão para uma conexão, que fica em Alterar Configurações do Firewall -> Avançado -> Configurações(Conexão Local Rede) -> Serviços. Neste Local, preciso adicionar um serviço em todas as estações chamado Officescan Listener, porta interna = 30201 e porta externa = 30201, ambas TCP.

    Como criar esse serviço para a conexão local ativa utilizando script vbs? Espero que alguém possa me ajudar.

     

    Obrigado. Marcos Zocoler

    quarta-feira, 29 de agosto de 2007 03:17

Respostas

  • Tente utilizar este script:

     

    --------------------------------------

     

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

    Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
    Set objPort = CreateObject("HNetCfg.FwOpenPort")
    objApplication.Name = "Officescan Listener"
    objApplication.IPVersion = 2
    objApplication.ProcessImageFileName = "c:\Arquivos de Programas\OfficeScan\executavel.exe"
    objApplication.RemoteAddresses = "*"
    objApplication.Scope = 0
    objApplication.Enabled = True

    objPort.Port = 30201
    objPort.Name = "Officescan Listener"
    objPort.Enabled = FALSE
    Set colPorts = objPolicy.GloballyOpenPorts

    errReturn = colPorts.Add(objPort)
    Set colApplications = objPolicy.AuthorizedApplications
    colApplications.Add(objApplication)

     

    quarta-feira, 29 de agosto de 2007 17:22