none
desativar firewall RRS feed

  • Pergunta

  • Servidor windows 2003 server
    + ou - 150 PCs na rede , todos XP Professional SP2

    Galera, estou usando aqui na rede um programa que usa o serviço "mensageiro"
     consegui arrumar aqui no forum um script que varre todo o AD , e abilita o serviço. Porem para abilitar o serviço o firewall tem que estar desabilitado, consegui um script que os usuarios "puxam" na hora que logam, porem como eles não tem permissões de administrador local o script do firewall não é executado. Tem como passar o administrador e a senha para serem executados como administrador , apesar de logarem como usuario user?
    gostaria de um script que varre o AD desabilitando o firewall , igual o meu que abilita o mensageiro.
    Vi em alguns posts que tem jeito de configurar o firewall desabilitado por GPO, porem o caminho que me indicaram não existe no meu servidor, ja proucurei em todos o lugar da GPO e não achei.

    Script que abilita o mensageiro usando as maquinas que estão no AD.( Este script é executado no proprio servidor e vale para todas os PCs que estão "ligados")

    On error Resume next

    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"

    Set objCOmmand.ActiveConnection = objConnection
    objCommand.CommandText = _
        "Select Name, Location from 'LDAP://DC=DOMINIO,DC=br' " _
            & "Where objectClass='computer'" 
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    Set objRecordSet = objCommand.Execute
    objRecordSet.MoveFirst

    Do Until objRecordSet.EOF


        strComputer = objRecordSet.Fields("Name").Value

        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &

    strComputer & "\root\cimv2")
        Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name

    ='Messenger'")
         For Each objService in colListOfServices
           objService.changestartMode("Automatic")
           objService.StartService()
         Next


       
        objRecordSet.MoveNext


    Loop


    Este é o que os usuarios executam quando logam ( o que desabilita o firewall)


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

    objPolicy.FirewallEnabled = FALSE


    Vou ficar aguardando , até mais.
    Obrigado.
    terça-feira, 19 de fevereiro de 2008 01:16

Respostas

Todas as Respostas