none
Backup Regras RRS feed

Respostas

  •  Vc pode fazer via script:
    Copie este script salve com a extensao .vbs
    Crie um agendamento no windows.


     

     
     
    '******This script will export ISA configuration********   
     
    Option Explicit   
     
    'Declare some variables   
    Dim fName, IsaRoot, IsaServer   
        Dim dNow  
        DIM yy  
        Dim mt  
        Dim dd  
        Dim NewFolder  
        Dim folder   
     
        dNow = Now  
        yy = Right(Year(dNow), 2)  
        mt = Right("00" &Month(dNow), 2)  
        dd = Right("00" &Day(dNow), 2)  
        NewFolder = "ISALOG_" & "20" &yy &mt &dd & "_FWS_000"  
     
    'Get a reference to ISA server objects   
    Set IsaRoot = CreateObject("FPC.Root")   
    Set IsaServer = ISARoot.GetContainingArray   
     
    'Filename to export the configuration   
    fName = "c:\" &"20" &yy &mt &dd &"IsaExportConfig.xml"   
     
    'Export the configuration   
    IsaServer.ExportToFile fName, 0   
     
    '******End of Export script**********************  
     
     





    Se útil, classifique.


    Sds, Messala
    • Marcado como Resposta Thales Laray quinta-feira, 5 de fevereiro de 2009 11:19
    quinta-feira, 5 de fevereiro de 2009 00:10
    • Marcado como Resposta Thales Laray quinta-feira, 5 de fevereiro de 2009 11:19
    quinta-feira, 5 de fevereiro de 2009 02:42
    Moderador

Todas as Respostas

  •  Vc pode fazer via script:
    Copie este script salve com a extensao .vbs
    Crie um agendamento no windows.


     

     
     
    '******This script will export ISA configuration********   
     
    Option Explicit   
     
    'Declare some variables   
    Dim fName, IsaRoot, IsaServer   
        Dim dNow  
        DIM yy  
        Dim mt  
        Dim dd  
        Dim NewFolder  
        Dim folder   
     
        dNow = Now  
        yy = Right(Year(dNow), 2)  
        mt = Right("00" &Month(dNow), 2)  
        dd = Right("00" &Day(dNow), 2)  
        NewFolder = "ISALOG_" & "20" &yy &mt &dd & "_FWS_000"  
     
    'Get a reference to ISA server objects   
    Set IsaRoot = CreateObject("FPC.Root")   
    Set IsaServer = ISARoot.GetContainingArray   
     
    'Filename to export the configuration   
    fName = "c:\" &"20" &yy &mt &dd &"IsaExportConfig.xml"   
     
    'Export the configuration   
    IsaServer.ExportToFile fName, 0   
     
    '******End of Export script**********************  
     
     





    Se útil, classifique.


    Sds, Messala
    • Marcado como Resposta Thales Laray quinta-feira, 5 de fevereiro de 2009 11:19
    quinta-feira, 5 de fevereiro de 2009 00:10
    • Marcado como Resposta Thales Laray quinta-feira, 5 de fevereiro de 2009 11:19
    quinta-feira, 5 de fevereiro de 2009 02:42
    Moderador
  • Obrigado Amigos, vou fazer os testes.

    :)
    Thales Laray
    quinta-feira, 5 de fevereiro de 2009 11:19