Script Em Vbs - Backup Outlook

[williansilva91]

Estou com um script que tem a função de fazer a copia dos arquivos do Outlook. Mas acontece o seguinte.. Os primeiros Backups ele faz corretamente... Mas chega em determinado ponto o Array altera atrapalhando o backup todo.... o que poderia ser?

Arquivo.vbs

on error resume next

PastaDestino = "E:\bkpOutlook\"

if Wscript.arguments.count = 0 then

computer = array("Computador01", "Computador02")

nome = array("Usuario01", "Usuario02")

else

computer = array (wscript.arguments(0))

nome = array (wscript.arguments(1))

end if

cont = 0

for each computers in computer

set fso = createobject("scripting.filesystemobject")

Set objWMIService = GetObject("winmgmts:\\" & computers & "\root\cimv2")

Data = FormatDateTime(now(), 1)

Set escrever = fso.OpenTextFile("RelatorioPB-"+Data+".txt", 8, True)

if fso.FolderExists("\\" & computers & "\c$\")=false then

wscript.echo " "

wscript.echo "O computador ", computers, " de ", nome(cont), " está desligado!"

escrever.WriteLine("O computador "+computers+" de "+nome(cont)+" está desligado!")

cont = cont + 1

err.clear

elseif fso.FolderExists("\\" & computers & "\c$\Documents and Settings\" & nome(cont) & "\")=false then

wscript.echo " "

wscript.echo "O nome do usuario ", nome(cont), " não está cadastrado no seguinte computador", computers, "!"

escrever.WriteLine("O nome do usuario "+ nome(cont)+ " não está cadastrado no seguinte computador"+ computers+ "!")

cont = cont + 1

err.clear

elseif fso.FileExists("\\" & computers & "\c$\Documents and Settings\" & nome(cont) & "\Configurações locais\Dados de aplicativos\Microsoft\Outlook\Outlook.pst")=false then

wscript.echo " "

wscript.echo "O usuario ", nome(cont), " existe mas não está cadastrado o outlook no computador",computers," Verifique."

escrever.WriteLine("O usuario "+nome(cont)+" existe mas não está cadastrado o outlook no computador"+computers+" Verifique.")

elseif fso.FolderExists(pastadestino+nome(cont))=false then

wscript.echo " "

wscript.echo "A pasta ", nome(cont), " está com o nome trocado na pasta de destino (Hd externo) ou nao existe Verifique."

escrever.WriteLine("A pasta "+nome(cont)+" está com o nome trocado na pasta de destino (Hd externo) ou nao existe Verifique.")

cont = cont + 1

err.clear

else

wscript.echo " "

wscript.echo "Fazendo Backup em ", computers, nome(cont)

Set colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name = 'OUTLOOK.exe'")

For Each objProcess in colProcessList

objProcess.Terminate()

wscript.echo objprocess.name, "fechado!"

Next

wscript.echo "Excluindo arquivos antigos!"

fso.deletefile PastaDestino + nome(cont) & "\outlook\*.*"

fso.deletefile PastaDestino + nome(cont) & "\outlook-contatos\*.*"

if err.number <> 0 then

wscript.sleep 5

else

wscript.sleep 5

end if

wscript.echo "Copiando arquivos."

fso.CopyFile "\\" & computers & "\c$\Documents and Settings\" & nome(cont) & "\Configurações locais\Dados de aplicativos\Microsoft\Outlook\*.*", PastaDestino + nome(cont) & "\outlook\"

fso.CopyFile "\\" & computers & "\c$\Documents and Settings\" & nome(cont) & "\Dados de aplicativos\Microsoft\Outlook\*.*",PastaDestino + nome(cont) & "\outlook-contatos\"

escrever.WriteLine("O usuario "+nome(cont)+"-"+computers+" Foi feito o backup com sucesso")

cont = cont + 1

end if

next