Garantia de que tenhamos um backup fiel de todas as regras aplicadas ao TMG, sem necessidade de interversão manual, podendo ser aplicado a um unico TMG ou mesmo para efetuar backup do Array de TMG.
Para efetuar o Backup basta copiar as linhas abaixo e colar no notepad, salvando as mesmas com extensão “.VBS” no nosso caso estamos chamando de BKP_TMG.VBS
Dim fileName Dim WSHNetwork Dim shareName: shareName = WScript.Arguments(0) Dim xmldom : set xmldom = CreateObject("Msxml2.DOMDocument") Dim fpc : set fpc = WScript.CreateObject("Fpc.Root") Dim array : set array = fpc.GetContainingArray set WSHNetwork = CreateObject("WScript.Network") fileName=shareName & "\" & WSHNetwork.ComputerName & "-" & _ Month(Now) & "-" & Day(Now) & "-" & Year(Now) & ".xml" array.Export xmldom, 0 xmldom.save(fileName)
Criar um diretorio no servidor de TMG onde irá salvar o script.vbs e seus futuros arquivos de Backup XML, no nosso caso criamos uma pasta em C:\BKP_TMG
Para testar o script basta abrir o prompt “CMD” acessar o diretorio C:\BKP_TMG e digitar o comando cscript BKP_TMG.VBS
Vamos abrir o agendador de tarefas “Task Scheduler”
Vamos gerar uma nova tarefa.
Definimos quando iremos programar a execução do scritp.
Definimos a data e o horario para execução.
Na passo abaixo selecionamos Start a program.
Selecionamos o script em C:\BKP_TMG, na frente da caixa de texto adicionamos “cscript”, com esse comando nosso VBS será executado em modo de comando igual efetuamos o teste.
Clicamos no botão Finish e está concluido o agendamento.
Pronto, agora temos nossa solução de backup automatica das regras do Microsoft TMG.
Boa leitura a todos.
Toninho Crevelente.
Fernando Lugão Veltem edited Revision 1. Comment: adicionado toc e tag, pt-br