VBS que renomeia pasta e mantem compartilhamento.

Supomos que você tem uma pasta pública que é esvaziada todo final mês, sabemos que você provavelmentenão da deleta logo de cara e deixa um backup pelo menos por alguns dias, então como fazer isso de maneiraautomática? Como não precisar refazer o compartilhamento?Criei uma VBS que renomeia a pasta para o nome dela e data, exemplo de hoje seria Pasta_091108, é criada uma nova pasta com o nome que estava e essa pasta fica com os mesmos compartilhamentos.
Sendo assim, a pasta C:\Pasta que estava compartilhada como Pasta$ com permissão para o grupo g_marketingcontinuará exatamente com as mesmas configurações, e seus arquivos estarão na pasta renomeada.Esse script só funciona 100% com as duas pastas ficando no mesmo diretório.
Exemplo do Arquivo MovePasta.VBS

########################
'Elifas - Junho de 2008
dNow = Now
yy = Right(Year(dNow), 2)
mt = Right("00" &Month(dNow), 2)
dd = Right("00" &Day(dNow), 2)
NovoNome = "Pasta_" & dd &mt &yy

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = ObjFso.getFolder("C:\pasta")

oFile.Name = NovoNome

Set objFolder = objFSO.CreateFolder("C:\pasta")
#####################



Prontinho, basta agendar a tarefa do Windows.