none
reiniciar serviço de firewall ISA Serverver RRS feed

Respostas

  • Olá,

    Dá uma olhada no script abaixo:



    'Packet Filter Extension Driver do servidor ISA
    arrService(1) = " 'Mspfltex' "

    'Microsoft Web Proxy
    arrService(2) = " 'W3proxy' "

    'Microsoft Firewall
    arrService(3) = " 'Fwsrv' "

    'Microsoft ISA Server Control
    arrService(4) = " 'Isactrl' "

    strComputer = "."

    intSleep = 15000

    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

    for a=1 to ubound(arrService)


       Set colListOfServices = objWMIService.ExecQuery _
       ("Select * from Win32_Service Where Name ="_
       & arrservice(a) & " ")


       For Each objService in colListOfServices

          objService.StopService()

          WScript.Echo "O Serviço "& arrService(a) & "foi Parado"   
          WSCript.Sleep intSleep
     
          objService.StartService()

          WScript.Echo "O Serviço "& arrService(a) & "foi Iniciado"   
       Next


    next


    WScript.Quit

    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 28 de abril de 2009 13:12