Script vbs para copiar pastas para rede e local

O script abaixo copia  pasta e subpastas locais para outra pasta da rede !
É possível usar o Agendador de Tarefas do Windows para realizar um backup de arquivos e pastas durante um horário determinado e diariamente.

---

'Autor: S0uz@
'Editavel com NotePad, Gedit, Scite e outros editores de texto

'Verssao 01'Tipo: automatizado'Data criacao: 2012-11-05   'Data modificacao: 2012-11-05   'Descricao: Copia o arquivo do Local (C:\Pasta\) para \\seuservidor\pastacompartilhada) .

'Variaveis

StrLocal = "C:\Pasta" 'Local que sera feito a copia da pasta. StrRedeColar = "\\seuservidor\Pasta\" & "Pasta-" & weekday(date) '  Local onde será colado com n° do dia 

'Criando os objetos

Set objNetwork = WScript.CreateObject( "WScript.Network" )
Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.CopyFolder StrLocal, StrRedeColar, True  'Copiando Para Rede no seu Servidor 

Wscript.quit

---

Observações: 

1. Modifique os locais das pastas de acordo com sua estrutura de pastas. E adicione o seu servidor (Ex: 192.168.0.200) ...
2. Lembre-se de salvar com a extensão .vbs Ex:(copiapararede.vbs)