Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
williansilva91

Script Em Vbs - Backup Outlook

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×