none
Script Firewall RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Amigos, preciso fazer um script pra rodar via group policy, aonde ele libere o acesso de um programa no firewall do windows xp??? Tem alguma coisa que eu possa fazer, sem ter que desabilitar o firewall, simplesmente liberar o acesso deste programa no firewall, ou a utilização da porta correspondente á ele.
     
    Agradeço a todos desde já ....
     
    kelsen.lima@hotmail.com
    sexta-feira, 16 de fevereiro de 2007 17:11
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

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

    Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
    objApplication.Name = "Libera VNC"
    objApplication.IPVersion = 2
    objApplication.ProcessImageFileName = "C:\Arquivos de programas\RealVNC\VNC4\winvnc4.exe"
    objApplication.RemoteAddresses = "*"
    objApplication.Scope = 0
    objApplication.Enabled = True

    Set colApplications = objPolicy.AuthorizedApplications
    colApplications.Add(objApplication)

     

    Agora só falta saber como fazer ele rodar como "admin" pq se simplesmente colocar ele do jeito que está  dá "acesso negado" ;)

     

    sexta-feira, 16 de fevereiro de 2007 18:04
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Deleted
    sexta-feira, 16 de fevereiro de 2007 21:37

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

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

    Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
    objApplication.Name = "Libera VNC"
    objApplication.IPVersion = 2
    objApplication.ProcessImageFileName = "C:\Arquivos de programas\RealVNC\VNC4\winvnc4.exe"
    objApplication.RemoteAddresses = "*"
    objApplication.Scope = 0
    objApplication.Enabled = True

    Set colApplications = objPolicy.AuthorizedApplications
    colApplications.Add(objApplication)

     

    Agora só falta saber como fazer ele rodar como "admin" pq se simplesmente colocar ele do jeito que está  dá "acesso negado" ;)

     

    sexta-feira, 16 de fevereiro de 2007 18:04
    |